Cod sursa(job #482913)

Utilizator tibi9876Marin Tiberiu tibi9876 Data 6 septembrie 2010 09:11:31
Problema Factorial Scor 35
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var p,x,i,c:longint;
begin
assign(input,'fact.in');
reset(input);
assign(output,'fact.out');
rewrite(output);
readln(p);
x:=0;
if p=0 then begin write(1); halt; end;
while i<p do
begin
x:=x+5;
c:=x;
while c mod 5=0 do
begin
c:=c div 5;
inc(i);
end;
end;
if i>p then write('-1') else
write(x);
end.