Вычислить результат выражения по заданному n - PascalABC.NET

Решение задачи: «Вычислить результат выражения по заданному n»

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

program pr;
 
var
  n, i: integer;
  p: real;
 
begin
  p := 1;
  writeln('Введите n');
  readln(n);
  for i := 1 to n do
  begin
    p := p * (2 * i) / ((2 * i) + 1);
  end;
  writeln('P = ', p);
end.

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

Объявление переменных: n, i, p
Инициализация переменной p значением 1
Вывод сообщения для ввода значения переменной n
Чтение значения переменной n с помощью функции readln
Цикл от 1 до n
Вычисление значения переменной p с помощью формулы p = p (2 i) / ((2 * i) + 1)
Завершение цикла
Вывод значения переменной p с помощью функции writeln
Конец программы