Cod sursa(job #1447160)
| Utilizator | Data | 3 iunie 2015 19:46:13 | |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.22 kb |
program fact;
var k,n:longint;
fi,fo:text;
begin assign(fi,'fact.in');
assign(fo,'fact.out');
reset(fi);
rewrite(fo);
read(fi,k);
n:=k*5;
write(fo,n);
close(fo);
end.