Cod sursa(job #460518)

Utilizator hunter_ionutzzzFarcas Ionut hunter_ionutzzz 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.