Cod sursa(job #875073)
| Utilizator |  Fusy Wool wolly |
Data | 9 februarie 2013 17:52:04 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.18 kb |
var e,p:text;
g:longint;
begin
assign(e,'fact.in');
assign(p,'fact.out');
reset(e);
rewrite(p);
readln(e,g);
if g>0 then g:=g*5 else g:=1;
write(p,g);
close(e);
close(p);
end.