n - factorial это проезведение всех чисел от 1 до n. для заданного числа N определите сколько нулей в конце десятичной записи n - factorial

Program 1;var n,k2,k5,i,a:integer;beginwrite('n=');read(n);k2:=0;k5:=0;for i:=2 to n do begin  a:=i;  if a mod 2=0 then  while a>=2 do   begin   a:=a div 2;   k2:=k2+1;   end;  a:=i;  if a mod 5=0 then  while a>=5 do   begin    a:=a div 5;    k5:=k5+1;   end; end;if k2<k5 then write(k2) else write(k5); readlnend.