Cod sursa(job #482857)
| Utilizator |  Marin Tiberiu tibi9876 |
Data | 5 septembrie 2010 19:34:09 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.08 kb |
var p:longint;
begin
readln(p);
if p=0 then write(1) else write(p*5);
end.