uses crt;
var n:integer;
a:array[1..500] of longint;
s:longint;
function check(x:longint):boolean;
begin
if (x mod 3=0) or (x mod 5=0) then exit(true);
exit(false);
end;
procedure nhap;
var i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : ');
readln(a[i]);
end;
writeln;
end;
procedure xuli;
var i:integer;
begin
for i:=1 to n do
if check(a[i]) then s:=s+a[i];
end;
procedure xuat;
begin
write('Tong cac so chia het cho 3 hoac 5 la: ',s);
readln;
end;
begin
nhap;
xuli;
xuat;
end.