des2103 , ответ добавлен 28.05.2017 в 23:59

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.

 0