Cod sursa(job #525592)

Utilizator gicu_01porcescu gicu gicu_01 Data 25 ianuarie 2011 16:26:02
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var i,n,k,p:int64; f:text;
begin
 assign(f,'fact.in');
 reset(f);
 readln(f,n);
 close(f);
 k:=5; p:=5; i:=1;
 while i<n do
  begin
   k:=k+5;
   inc(i);
   if k div p=p then begin p:=k; inc(i); end;
  end;
 assign(f,'fact.out');
 rewrite(f);
  if i>n then writeln(f,'-1') else writeln(f,k);
 close(f);
end.