Найти сумму ряда с точностью ε - Turbo Pascal (29650)

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

Дано B. Определить с точностью ε пожалуйста

function Z(const a,y,eps: real): real;
var
  an,yn,z1,z2: real;
begin
  an := a;
  yn := y;
  z1 := 0;
  z2 := yn / an;
  while abs(z1-z2) >= eps do begin
    z1 := z2;
    an := an * a;
    yn := -(yn * y);
    z2 := z2 + yn / an;
  end;
  Z := z2;
end;
 
var
  a,y,e: real;
begin
  write('a = '); readln(a);
  write('y = '); readln(y);
  write('e = '); readln(e);
  if abs(y) <= 1 then
    writeln('Z = ', Z(a, y, e))
  else
    writeln('Неверное значение  y');
  readln;
end.

эта приблизительная задача, но я не как понять не могу, как тут решается(((((

Решение задачи: «Найти сумму ряда с точностью ε»

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

uses crt;
var
  b,e,y,a: real;
  n:integer;
begin
clrscr;
repeat
write('|b|<=1 b=');
readln(b);
until abs(b)<=1;
repeat
write('0<e<1  e=');
readln(e);
until(e>0)and(e<1);
y:=b/6;
n:=1;
a:=y;
while abs(y)>e do
 begin
  n:=n+2;
  y:=-y*b*b/2/n/(2*n+1);
  a:=a+y;
 end;
write('A=',a:0:6);
readln;
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

В начале кода используются необходимые библиотеки.
Затем определяются переменные: b, e, y и a типа real, а также переменная n типа integer.
Код начинает цикл repeat-until, где в первом условии проверяется, что значение переменной b меньше или равно 1, и выводится запрос на ввод значения b.
Во втором условии проверяется, что значение переменной e находится между 0 и 1, и выводится запрос на ввод значения e.
Затем переменная y вычисляется как b/6, а переменная n устанавливается равной 1.
Переменная a вычисляется как сумма y и a, и эта сумма сохраняется в переменной a.
Затем начинается вложенный цикл while, который выполняется до тех пор, пока abs(y) больше e.
Внутри вложенного цикла переменная n увеличивается на 2, значение y вычисляется как -ybb/2/n/(2*n+1), и это значение добавляется к переменной a.
После окончания вложенного цикла выводится значение переменной a с точностью до 6 знаков после запятой.
Цикл repeat-until завершается, и выводится запрос на ввод.
Код заканчивается, и следующее выполнение программы начинается с начала цикла repeat-until.