Cod sursa(job #85455)

Utilizator GavrilaVladGavrila Vlad GavrilaVlad Data 21 septembrie 2007 16:23:44
Problema Factorial Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
Raporteaza aceasta sursa 
var n,i,j,k,p:int64;
    f:text;
begin
   assign(f,'fact.in');
   reset(f);
   read(f,n);
   close(f);
   assign(f,'fact.out');
   rewrite(f);
   if n=0 then writeln(f,1)
   else
   begin
   repeat
   i:=i+5;
   k:=i;
   while k mod 5=0 do
   begin
   p:=p+1;
   k:=k div 5;
   end;
   until p=n;
   writeln(f,i);
   end;
   close(f);
end.