N¤~¤Factorial- это произведение всех чиселот 1 доN . Для заданного числа N определите , сколько нулей в конце десятичной записи N ¤-¤Factorial. pomagite pojaluistA

Только с олимпиады, много лишнего(наверно) но как есть.
uses crt;
var a,s,f,i:integer;
    f1,s1:string;
    r,g:text;
begin
assign (r,C:/Ain.txt);
reset (r);
readln (r,a);
close (r);
f:=1;
for i:=2 to a do
f:=f*i;
str(f,f1);
for i:=1 to length(f1) do
begin
s1:=copy(f1,1,1);
if s10 then
delete(f1,1,1);
end;
for i:=1 to length(f1) do
begin
s1:=copy(f1,1,1);
if s1=0 then
s:=s+1;
end;
assign (g,C:/Aout.txt);
rewrite (g);
writeln (g,s);
close(g);
end.