Cod sursa(job #1207860)
| Utilizator |  Valentin Valeanu valen.valentin |
Data | 14 iulie 2014 10:20:31 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.2 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);
writeln (f2,n*4+1);
close (f1);
close (f2);
end.