Cod sursa(job #903728)
| Utilizator |  Fusy Wool wolly |
Data | 2 martie 2013 17:58:56 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
var
input,output:text;
n:int64;
begin
assign(input, 'fact.in'); reset(input);
assign(output, 'fact.out'); rewrite(output);
read(input,n);
close(input);
if n>0 then writeln(output,4*n+5) else writeln(output,'1');
close(output);
end.
