Cod sursa(job #625131)

Utilizator Horea94UBB-Cartis-Muresan Horea94 Data 23 octombrie 2011 19:40:20
Problema Factorial Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
Raporteaza aceasta sursa 
var f:text;
a,k,q,p:integer;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
k:=5;
repeat
a:=k;
repeat
if a mod 5=0 then
begin
q:=q+1;
a:=a div 5;
end;
until a mod 5<>0;
k:=k+5;
until q>=p;
assign(f,'fact.out');
rewrite(f);
if p=0 then write(f,1)
else
begin
if q=p then write(f,k-5);
if q>p then write(f,-1);
end;
close(f);
end.