Cod sursa(job #460519)

Utilizator hunter_ionutzzzFarcas Ionut hunter_ionutzzz Data 2 iunie 2010 20:55:31
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
program factorial;
var fin,fout:text;
    a: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.