Cod sursa(job #1450772)
| Utilizator |  Boiu Stefan stefsenior |
Data | 14 iunie 2015 17:28:11 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.22 kb |
program fact;
var f,h:text;
p,n: longint;
begin
assign(f,'fact.in'); reset(f); readln(f,p); close(f);
if p<=0 then n:=-1 else n:=p*5;
assign(h,'fact.out'); rewrite(h); writeln(h,n);
close(h);
end.
