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

function factorial(n : integer) : BigInteger;var     i : integer;     f : BigInteger;begin         f := 1;         for i := 2 to n do               f := f * i;         factorial := fend;var x:integer;beginwrite('X: ');readln(x);writeln(factorial(x));end.