Cod sursa(job #161881)

Utilizator andreicantaCanta Andrei andreicanta Data 18 martie 2008 22:06:28
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var nr,z,p,n,i:longint;
		f:text;

begin
  assign(f,'fact.in');reset(f);
	read(f,p);
  assign(f,'fact.out');rewrite(f);
  z:=0;i:=0;
  while z < p do
  	begin

      	  inc(z);
    end;
  if z>p then
  	writeln(f,-1)
  else if p = 0 then
  	writeln(f,1)
  else
	  writeln(f,i);
  close(f);
end.