Program bai1;
uses crt;
var i,N,s,s1,T: integer;
a:array[1..N] of integer;
begin
s:=0
clrscr;
write('nhap N :');readln(N);
for i:=1 to n do
begin
write('nhap a['i'] ='); readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 5 = 0 anh a[i] mod 3<>0 then s1:=s+1,T=s1+s;
writeln('tong cac so du ,s);
end.