Cod sursa(job #311795)
| Utilizator |  Catalin Tamas katamash |
Data | 4 mai 2009 10:52:23 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.17 kb |
var
f:text;
n:longint;
begin
assign(f,'fact.in');reset(f);read(f,n);close(f);
assign(f,'fact.out');rewrite(f);
if n=0 then write(f,1) else write(f,n*5); close (f); end.