var i,k,x:integer;
begin
i:=0;
x:=1;
while x<>0 do
read(x);
if (x mod 5=0)and(x<>0) then k:=k+1;
end;
writeln('Количество чисел кратных 5= ',k);
end.
