Cod sursa(job #460518)
Utilizator | Data | 2 iunie 2010 20:54:37 | |
---|---|---|---|
Problema | Factorial | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.23 kb |
program factorial;
var fin,fout:text;
a,b:longint;
begin
assign(fin,'fact.in'); reset(fin);
assign(fout,'fact.out'); rewrite(fout);
readln(a);
writeln(fout,a*5);
close(fin);
close(fout);
end.