##
/// Функция считает факториал числа
function fact(n: integer): integer;
begin
result := 1;
for var i := 2 to n do result *= i;
end;
var n := readinteger('Введите кол-во членов произведения:');
var x := readreal('Введите X:');
var prod := 1.0;
for var k := 1 to n do
begin
prod *= ((1 - x)**(k + 1) + 1) / (fact(k - 1) + 1) ** 2;
end;
println('prod =', prod);