var f,g: text;
a: array[1..1000] of integer;
dem,i,n: byte;
procedure boi5;
begin
for i:=1 to n do
read(f,a[i]);
for i:=1 to n do
if a[i] mod 5=0 then dem:=dem+1;
write(g,'So cac so la boi cua 5: ',dem);
end;
Begin
assign(f,'D:\input.txt'); reset(f);
assign(g,'D:\output.txt'); rewrite(g);
readln(f,n);
boi5;
close(f);
close(g);
End.
