Решение нелинейных уравнений методом Ньютона - Pascal (80138)

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

Помогите решить 0,1sin(x)+x^2-1=0 С точностью Е=10^-4 Интервал изоляции [0,8;1,0] Зарание спасибо!

Решение задачи: «Решение нелинейных уравнений методом Ньютона»

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

var x, xn: real;
begin
  x := 1;
  repeat
    xn := x;
    x := xn - (0.1 * sin(x) + x * x - 1) / (0.1 * cos(x) + 2 * x)
  until abs(x - xn) < 1e-4;
  write('x = ', x:0:4);
  readln
end.

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

Объявляется переменная x типа real и переменная xn типа real.
Присваивается значение 1 переменной x.
Начинается цикл repeat - until.
Значение переменной xn равно значению переменной x.
Значение переменной x пересчитывается по формуле метода Ньютона для решения уравнения: x := xn - (0.1 * sin(x) + x * x - 1) / (0.1 * cos(x) + 2 * x).
Цикл выполняется до тех пор, пока разница между x и xn не станет меньше 1е-4.
Выводится значение переменной x с точностью до 4 знаков после запятой.
Ожидается ввод с клавиатуры перед завершением программы. Предполагаемый язык программирования - Pascal.