Подсчитать количество нулей в факториале

var
 n, x, s: integer;
begin
 s := 0;
 write( 'n> ' ); readln(n);
 
 x := 5;
 while x <= n do
   begin
     inc(s, n div x);
     x := x * 5
   end;
 
 writeln(s, ' нулей');
end.

const
  cS = 10000;
 
type
  TSar = array [1..cS] of string;
 
var
  N,d,m: integer;
  Sar: TSar;
  ans: longint;
 
procedure Mult(var Sar: TSar; n: integer);
var
  p, k, c, m: integer;
begin
  p := 0;
  m := cS;
  repeat
    for k := Length(Sar[m]) downto 1 do 
    begin
      c := (ord(Sar[m][k]) - ord('0')) * n + p;
      p := c div 10;
      Sar[m][k] := char(ord('0') + (c mod 10));
    end; 
    if Sar[m - 1] <> '' then dec(m) else break;
  until false;
  while p <> 0 do 
  begin
    if (m > 1 ) and (length(Sar[m]) >= 50) then dec(m);
    Sar[m] := char(ord('0') + (p mod 10)) + Sar[m];
    p := p div 10;
  end;
end;
 
 
begin
Readln(N);
  case N of
    1: Sar[cS] := '0';
    0: Sar[cS] := '1' ;
  else begin
      Sar[cS] := '1';                            //ищем сам факториал
      for N := 1 to N do Mult(Sar, N); 
    end;
  end; 
  m:=1;
  while Sar[m]='' do inc(m);
  for m:=m to cS do for d:=1 to length(Sar[m]) do if Sar[m][d] = '0' then inc(ans); //проверяем сколько 0
  Writeln('Ответ: ',ans);
end.