uses crt;

var i,n: integer;

a: array [1..100] of integer;

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

writeln('nhung so chia het cho 3,5 trong day la:');

for i:=1 to n do

if a[i] mod 3,5 = 0 then

writeln(a[i]);

readln

end.