Cod sursa(job #247228)
| Utilizator |  Stanciulescu Cristian-Florinel Cristianf |
Data | 22 ianuarie 2009 16:34:20 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.17 kb |
var p:longint;
f:text;
begin
assign (f,'fact.in');
reset (f);
readln (f,p);
close (f);
assign (f,'fact.out');
rewrite (f);
writeln (f,p*5);
Close(f);
end.
