Program enota;
Var a:array[1..10] of integer; i,p:integer;
begin
p:=0;
for i:= 1 to 10 do 
begin
read(a[i]);
if a[i] mod 5 =0 then p:=p+1;
end;
write(p);
end.