Cod sursa(job #421927)
| Utilizator |  Stern Vlad sternvlad |
Data | 21 martie 2010 21:04:50 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.19 kb |
program sada;
var p,n:longint;
f,g:text;
begin
assign (f,'fact.in');
reset (f);
readln (f,p);
n:=(p-1)*5;
assign (g,'fact.out');
rewrite (g);
write (g,n);
close (f);
close (g);
end.