Question

Produsul primelor n nr naturale

Answer 1

var  

 a,i,n:integer;

begin

     read(n);

     a:=1;

     for i:=1 to n do

     a:=a*i;

     writeln('Produsul=',a);

end.