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.