Нужно посчитать количество 5 в разложении. Причем нужно учесть, что
25 = 5*5 - это две 5, а 125 = 5*5*5 - это три 5, и так далее.
BEGIN
k := 0;
for i=1 to N do
begin
a := i;
while a > 0 do
begin
if a mod 5 = 0 then
begin
k := k+1;
a := a/5;
end;
else a := 0;
end;
end;
writeln (k);
END.
Проверь. 25! должен заканчиваться 6 нулями.