Для числа N определите, сколько нулей в конце десятичной записи N — Факториал

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