Нужно посчитать количество 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 нулями.