Cod sursa(job #903728)

Utilizator wollyFusy 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.