Дана бесконечная последовательность определит количество и сумму чисел этих последовательности который делится на 5 окончание последовательности равно 0

Var numb,count:integer;
begin
readln(numb);
while numb<>0 do
begin
if (numb mod 5 = 0) then
count:=count+1;
readln(numb);
end;
writeln(count);
end.