Сумма ряда - Free Pascal (511)

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

Здравствуйте, нужно написать программу нахождения суммы ряда: (f2*(6^3)*√3)/2! + (f3*(6^4)*√4)/3! + (f4*(6^5)*√5)/4! + ... ! - факториал f - последовательность Фибоначчи. Суммирование должно прекратиться, если модуль слагаемого меньше E(эпсилон) > 0. E - вводится с клавы. Не более 1(!) цикла!

Решение задачи: «Сумма ряда»

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

        while abs(Per)>Eps do
        begin
                Rad:=Rad+Per;
                inc(i);
                Fib:=Fibonachi(Fib,i);
                Fac:=Factorial(Fac,i);
                Per:=(Fib*(exp(ln(6)*(i+1)))*sqrt(i+1))/Fac;
        end;

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

В данном коде выполняется вычисление суммы ряда. Вот список действий, которые выполняются в этом коде:

Установка начального значения переменной Rad.
Установка начального значения переменной i.
Вычисление значения переменной Fib с помощью функции Fibonachi.
Вычисление значения переменной Fac с помощью функции Factorial.
Вычисление значения переменной Per с помощью формулы Per = (Fib * (exp(ln(6) * (i+1))) * sqrt(i+1)) / Fac.
Проверка условия abs(Per) > Eps. Если это условие истинно, то выполняется следующий цикл.
Внутри цикла значение переменной Rad увеличивается на значение переменной Per.
Значение переменной i увеличивается на единицу.
Вычисляется новое значение переменной Fib с помощью функции Fibonachi, используя текущее значение переменной Fib и новое значение переменной i.
Вычисляется новое значение переменной Fac с помощью функции Factorial, используя текущее значение переменной Fac и новое значение переменной i.
Вычисляется новое значение переменной Per с помощью формулы Per = (Fib * (exp(ln(6) * (i+1))) * sqrt(i+1)) / Fac.
Цикл повторяется до тех пор, пока условие abs(Per) > Eps не станет ложным.
По окончании цикла вычисляется итоговое значение переменной Sum как сумма значений переменной Rad.
Вывод значения переменной Sum.