Вычислить выражение, содержащее n корней - Free Pascal

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

Вычислить выражение, содержащее n корней √(1-√(2+√(3-√(4+√(5-√(6+.) ) ) ) ) Ребята помогите пожалуйста!!! Тут выражение такое лесенкой идёт корень из одного охватывает всё выражение, корень из двух только 3-6 охватывает и т.д.

Решение задачи: «Вычислить выражение, содержащее n корней»

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

  s := 0;
  for i := n downto 2 do
  begin
    s := sqrt(i + (1 - 2 * (i mod 2)) * s);
  end;

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

В данном коде выполняется вычисление выражения, содержащего n корней.

Переменная s инициализируется значением 0.
В цикле for перебираются числа от n до 2.
Для каждого числа i выполняются следующие действия: a. Вычисляется значение выражения sqrt(i + (1 - 2 (i mod 2)) s). b. Значение выражения присваивается переменной s.
Цикл завершается.