var 
a, k: integer;
begin
k:=0;
readln (a);
while a<>0 do 
begin
if (abs(a) mod 5 = 0) and (abs(a) > 9) and (abs(a) <100) then k:=k+1;
readln (a);
end;
writeln(k);
end.