Cod sursa(job #1207863)
| Utilizator |  Valentin Valeanu valen.valentin |
Data | 14 iulie 2014 10:26:23 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
program factorial;
var
n:longint;
f1,f2:text;
begin
assign (f1,'fact.in');
assign (f2,'fact.out');
reset (f1);
rewrite (f2);
readln (f1,n);
if n<=5 then writeln (f2,-1) else
writeln (f2,n*4+1);
close (f1);
close (f2);
end.
