Найти предел последовательности, разбить алгоритм на программу и функцию - PascalABC.NET

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

Продолжаю изучать Паскаль, вот теперь у меня тут непонимание возникло

Задание такое:

В этом разделе необходимо разработать формулу для функции, с помощью которой и решить поставленную задачу. Разбить алгоритм на две части - на основную программу и пользовательскую функцию. Составить программу и для введенных с клавиатуры значений параметров рассчитать требуемые величины.

Найти предел последовательности , которая вычисляется по формуле

, ^n→∞

Величину b ввести с клавиатуры. Вычисления остановить при выполнении условия

При составлении программы реализовать в виде функции A(n).

Решение задачи: «Найти предел последовательности, разбить алгоритм на программу и функцию»

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

  function A(n: integer; b: real): real;
  begin
    A := (b * n * n + 2) / (n - 1) / (n + 3);
  end;
 
var
  b, eps: real;
  n: integer;
  ACurrent, APrevious: real;
begin
  writeln('eps=');
  readln(eps);
  writeln('b=');
  readln(b);
 
  ACurrent := A(2, b);
  n := 3;
  repeat
    APrevious := ACurrent;
    ACurrent := A(n, b);
    n := n + 1;
  until abs(ACurrent - APrevious) <= eps;
  Writeln('A -> ', ACurrent: 10: 3);
  readln;
end.

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

Функция A(n: integer; b: real): real; - функция для вычисления значения последовательности с параметрами n и b
Переменные b, eps: real; - значения для передачи в функцию A и получения предела последовательности
Переменная n: integer; - счетчик для цикла
Переменные ACurrent, APrevious: real; - текущее и предыдущее значения последовательности
Цикл repeat-until для нахождения предела последовательности
Вывод значения предела последовательности
Чтение значения от пользователя для завершения программы