16. Составьте программу для вычисления числа 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.