Cod sursa(job #117125)
| Utilizator | Data | 20 decembrie 2007 19:30:33 | |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.54 kb |
var n:integer;
begin
assign(f,'factorial.in'); reset(f);
assign(g,'factorial.out'); rewrite(g);
readln(f,n);
if n=1 then writeln(g,'5');
if n=2 then writeln(g,'10');
if n=3 then writeln(g,'15');
if n=4 then writeln(g,'20');
if n=5 then writeln(g,'-1');
if n=6 then writeln(g,'25');
if n=7 then writeln(g,'30');
if n=8 then writeln(g,'35');
if n=9 then writeln(g,'40');
if n=10 then writeln(g,'45');
if n=11 then writeln(g,'-1');
if n=12 then writeln(g,'50');
end.