Циклический алгоритм: приближенное вычисление числа Пи - Free Pascal

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

Доброго времени суток! Помогите, пожалуйста, с задачкой, я её совсем не понимаю Найти число pi, используя произведение: Выполнить вычисления для 50-ти, 100, 200, 400 сомножителей. Точность для печати не менее 5-ти знаков.

Решение задачи: «Циклический алгоритм: приближенное вычисление числа Пи»

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

var
  n, i, j: integer;
  p: real;
begin
  n := 50;
  for i := 1 to 4 do
  begin
    p := 1;
    for j := 1 to n div 2 do
      p := p * 2*j / Pred(2*j) * 2*j / Succ(2*j);
    writeln('При n =', n:3, ' pi =', 2*p:0:5);
    n := n * 2;
  end;
end.

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

Введенные переменные: — n (количество итераций) со значением 50; — i (номер итерации) со значением от 1 до 4; — j (номер итерации) со значением от 1 до n/2; — p (приближенное значение Пи) со значением 1.
Основной цикл, который выполняется 4 раза: — Значение переменной n умножается на 2; — В каждой итерации внутреннего цикла значение переменной p вычисляется по формуле: p = 1 2j / Pred(2j) 2j / Succ(2j); где Pred(2j) — предыдущее значение 2j; где Succ(2j) — следующее значение 2j; — Выводится значение переменных n и p; — Значение переменной n увеличивается на 1.
В результате выполнения программы будет выведено 4 значения приближенного значения Пи с шагом увеличения n в 2 раза.