Вычислить используя рекурсию - Pascal ABC

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

Вычислить,используя рекурсию

Решение задачи: «Вычислить используя рекурсию»

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

Function kor(n,k:integer):real;
begin
if k=n then kor:=sqrt(23)
else if k mod 3=2 then kor:=sqrt(23-2*kor(n,k+1))
else kor:=sqrt(23+2*kor(n,k+1))
end;

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

В функции kor объявлены две переменные n и k, которые являются целочисленными типами данных.
В условии if k=n проверяется равенство переменных k и n. Если они равны, то выполняется тело функции, где вычисляется корень из числа 23 и результат присваивается переменной kor.
В условии else if k mod 3=2 проверяется, является ли остаток от деления k на 3 равным 2. Если это так, то выполняется тело функции, где вычисляется корень из числа 23 - 2 * kor(n,k+1) и результат присваивается переменной kor.
В условии else kor=sqrt(23+2*kor(n,k+1)) проверяется, что предыдущие два условия не выполнились. Если это так, то выполняется тело функции, где вычисляется корень из суммы числа 23 и удвоенного значения kor(n,k+1) и результат присваивается переменной kor.