Разработать рекурсивные функции для вычисления n-го члена следующей последовательности - Turbo Pascal

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

Нужно разработать рекурсивные функции для вычисления n-го члена следующей последовательности. Если кто сможет помочь - заранее большое спасибо!

Решение задачи: «Разработать рекурсивные функции для вычисления n-го члена следующей последовательности»

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

function posled(n:integer):real;
begin
if n=1 then posled:=-5
else posled:=posled(n-1)/(n*n+n+1);
end;
var i:integer;
begin
for i:=1 to 9 do //пример для первых 10
writeln(posled(i):0:10)
end.

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

Создается функция posled(n:integer), которая принимает целочисленный аргумент n и возвращает вещественное число real.
Внутри функции проверяется, равен ли n единице. Если это так, то функция возвращает -5. В противном случае, функция вызывает саму себя, передавая n-1 в качестве аргумента, и делит результат на (n*n+n+1).
Создается переменная i, которая инициализируется целочисленным значением 1.
Запускается цикл for, который выполняется от 1 до 9 (включительно).
Внутри цикла выводится значение функции posled(i) с точностью до 10.
Цикл завершается после выполнения всех 9 итераций.