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

Дано натуральное число n. Вычислить:

корней

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

Function Nsqrt(n : Byte) : Real;
Begin
  If n>0 then Nsqrt:=Sqrt(2+Nsqrt(n-1)) else Nsqrt:=0;
end;

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

Создается функция Nsqrt с одним параметром n типа Byte.
Внутри функции проверяется условие: если n больше 0, то вычисляется квадратный корень из суммы 2 и Nsqrt(n-1), иначе значение функции устанавливается равным 0.
Функция заканчивается.