Program BTH;
uses crt;
var a:array[1..10000] of longint;
i,n,s:longint;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
write('a[',i,']: ');readln(a[i]);
If (a[i] mod 3=0) and (a[i] mod 5=0) then
s:=s+a[i];
end;
writeln('Tong cac so chia het cho 3 va 5 la: ',s);
readln;
end.