Вычислить сумму S=sqrt(1+sqrt(2+sqrt(3+.+sqrt(50) - Pascal

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

Всем доброго времени суток! Прошу помочь с данной задачей: 1. Вычислить сумму Максимально простым методом (для начинающих юзеров паскаля) Находили подобное, но там рекурсия.

Решение задачи: «Вычислить сумму S=sqrt(1+sqrt(2+sqrt(3+.+sqrt(50)»

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

var i:integer;
    s:real;
begin
s:=sqrt(50);
for i:=49 downto 1 do
s:=sqrt(i+s);
write('S=',s:0:4);
end.

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

Объявляется переменная i типа integer.
Объявляется переменная s типа real.
Начинается блок выполнения программы.
Присваивается значение переменной s, равное корню квадратному из числа 50 (s:=sqrt(50)).
Начинается цикл for со значения i равным 49 и уменьшением i на 1 до значения 1.
В цикле переменной s присваивается новое значение, которое равно корню квадратному из суммы i и текущего значения s (s:=sqrt(i+s)).
Выводится значение переменной s с точностью до 4 знаков после запятой, сопровождая его строкой S= (write('S=',s:0:4)).
Конец блока выполнения программы.