Cod sursa(job #805711)

Utilizator vasica38Vasile Catana vasica38 Data 31 octombrie 2012 22:20:46
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
program p1;
var n,i:byte;
        p:longint;
        f,g:text;

begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(G);
readln(f,n);
p:=1;
i:=2;
for i:=2 to n do
                p:=p*i;

writeln(p);   close(f);close(G);
end.