Cod sursa(job #553419)

Utilizator erossjani94Eross Janos erossjani94 Data 14 martie 2011 00:01:22
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var n,p:longint;
   f,g:text;
Begin
  assign(f,'fact.in');
  reset (f);
   read (f,p);
  close (f);
  n:=1;
  while (p<>1) and (p<>0) do
    begin
       p:=p div n;
       mar:=p mod n;
       inc (n);
    end;
  if p mod n <>0 then n:=-1;
  assign (g,'fact.out');
  rewrite (g);
  write (g,n);
  close (g);
end.