Question

. Составьте программу для вычисления числа n: n = 1∙2∙3∙…∙х. Число Х вводится с клавиатуры.

Answer 1

function factorial(n : integer) : BigInteger;
var 
   i : integer; 
   f : BigInteger;
begin   
     f := 1;   
     for i := 2 to n do     
         f := f * i;   
     factorial := f
end;

var
x:integer;

begin
write('X: ');
readln(x);
writeln(factorial(x));
end.