viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím

var a:aray[1..1000]of integer;

i,n,d:integer;

begin

d:=0;

writeln(‘nhap n’);readln(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if a[i] mod 5=0 then d:=d+1;

write(d);

readln;

end.