Найти приближенное решение нелинейного уравнения методом простых итераций на заданном отрезке. Точность вычислений Е = 0

const expY = 0;//Ожидаемое значение
 e = 0.001;//Погрешность
 //Отрезок:
 var a:real = 0;
 var b:real = 1;
 var newX, lA, lB:real;
 
function y(x:real):=power(x,3) -24*x+11;
 
begin
  newX:=(a+b)/2;//Выбираем первую точку по центру промежутка
  lA := (y(b)-y(a))/(b-a);//Считаем угол наклона хорды
  lB:=y(a)-lA*a;//Считаем смещение хорды по Оу
  while abs(y(newX)-expY)<=e do
  begin
    newX := (expY - lB)/lA;//Смещаем х в точку, где хорда пересекает прямую у = expY
    lB:=y(newX)-lA*newX;//Пересчитываем смещение хорды по Оу
  end;
  writeln(newX{:0:5});//Раскомментировать, если нужно конкретное количество знаков после запятой
end.

const expY = 0;//Ожидаемое значение
 e = 0.001;//Погрешность
 //Отрезок:
 a = 0;
 b = 1;
 var newX, lA, lB:real;
 
function y(x:real):=power(x,3) -24*x+11;
 
begin
  newX:=(a+b)/2;//Выбираем первую точку по центру промежутка
  lA := (y(b)-y(a))/(b-a);//Считаем угол наклона хорды
  lB:=y(a)-lA*a;//Считаем смещение хорды по Оу
  while abs(y(newX)-expY)>=e do
  begin
    newX := (expY - lB)/lA;//Смещаем х в точку, где хорда пересекает прямую у = expY
    lB:=y(newX)-lA*newX;//Пересчитываем смещение хорды по Оу
  end;
  writeln(newX{:0:5});//Раскомментировать, если нужно конкретное количество знаков после запятой
  writeln(y(newX));
end.