Вычислить значение выражения - Pascal (80330)

Формулировка задачи:

Всем привет! прошу помочь с программой, если не сложно, написать код программы. Буду очень благодарна ! Паскаль повторение программы, Задача связанная с суммой

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

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

program Project1;
var i: integer;
    p: real;
begin
  p := 1;
  for i := 2 to 100 do p := p * (i + 1) / (i + 2);
  write('P = ', p:0:15);
  readln
end.

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

Объявляется переменная i типа integer и переменная p типа real.
Присваивается значение 1 переменной p.
Запускается цикл for, в котором переменная i будет проходить значения от 2 до 100.
В теле цикла переменной p присваивается значение, полученное путем умножения текущего значения p на выражение (i + 1) / (i + 2).
Выводится результат вычислений с помощью функции write с сообщением P = и значением переменной p, округленным до 15 знаков после запятой.
Ожидается ввод с клавиатуры. Таким образом, данный код вычисляет значение выражения и выводит результат.