Найти произведение членов ряда - PascalABC.NET

Помогите составить программу для нахождения произведения n*(n+1)*(n+2)*…*(2n);

Листинг программы

begin
  var N := ReadLnInteger('N = ');
  var P : Biginteger := 1;
  for var i := N to N*2 do
    P *= i;
  WriteLn('P = ', P);
end.

Объяснение кода листинга программы

В этом коде:

В переменной N хранится число, которое считывается с помощью функции ReadLnInteger.
В переменной P хранится число, которое инициализируется единицей.
Используется цикл for для перебора чисел от N до N*2.
Внутри цикла значение переменной P умножается на текущее значение i.
После завершения цикла выводится значение переменной P с помощью функции WriteLn.