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 5 trong day la:');
for i:=1 to n do
if a[i] mod 5 = 0 then
writeln(a[i]);
readln
end.