Cod sursa(job #421917)
| Utilizator |  Stern Vlad sternvlad |
Data | 21 martie 2010 20:54:43 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| 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*5;
assign (g,'fact.out');
rewrite (g);
write (g,n);
close (f);
close (g);
end.