Cod sursa(job #156258)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 12 martie 2008 14:05:32
Problema Factorial Scor 25
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.5 kb
program p21;
var f,g:text;
    p,x,p5,i:int64;
    ok:boolean;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p);
i:=0;
p5:=0;
while p5<p do
      begin

      i:=i+5;
      x:=i;
      while x mod 5=0 do
      begin
      x:=x div 5;
      p5:=p5+1;
      end;
      if p5=p then begin
                   write(g,i);
                   ok:=true;
                   end;
      end;
if p=0 then writeln(g,1);
if ok=false then write(g,-1);
close(g);
end.