Cod sursa(job #586399)
| Utilizator |  Ganea Dinu Spirit |
Data | 30 aprilie 2011 22:28:36 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
Program Factorial;
var i,j,f:integer;
p,l :longint;
f1,f2:text;
begin
assign(f1,'fact.in'); reset(f1);
assign(f2,'fact.out'); rewrite(f2);
readln(f1,p);
l:=(p*10) div 2;
write(f2,l);
close(f1); close(f2);
end.