Cod sursa(job #736537)
| Utilizator |  Kurt Godel Maarcell |
Data | 18 aprilie 2012 21:51:10 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.21 kb |
var j,k,l,m:integer; i,n:integer; f1,f2:text;
begin
assign(f1,'fact.in');
reset(f1);
assign(f2,'fact.out');
rewrite(f2);
readln(f1,n);
if n=0 then writeln(f2,1)
else writeln(f2,5*n);
close(f1);
close(f2);
end.