Cod sursa(job #583220)

Utilizator mada0222Tomus Madalina mada0222 Data 18 aprilie 2011 23:38:24
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program frr;
var f,g:text;
    c,n,p,nr:int64;
begin
assign(f,'fact.in'); reset(f);
assign(g,'fact.out'); rewrite(g);
readln(f,p);
if p=0 then
  writeln(g,'1')
  else
   begin
     if p<0 then
       writeln(g,-1)
       else
       begin
       n:=p*5;
    end;
    end;
close(f);
close(g);
end.