Составить программу для вычисления корня нелинейного уравнения по методу касательных х^2-cos(x^2)=6

Для метода касательных (он же - метод ньютона) надо задать начальное приближение и получить выражение для производной функции. рекуррентная формула в методе ньютона имеет следующий вид: для нашей конкретной можно записать: а еще надо задать погрешность решения, которую определим так:   function f(x: real): real; begin   f: =sqr(x)-cos(sqr( end; function fn1(x: real): real; begin   fn1: =x-(sqr(x)-cos(sqr()/(2*x*(1+sin(sqr( end; var   xn,xn1,y,eps: real; begin   writeln('введите начальное приближение для корня: ');   read(xn);   writeln('введите значение погрешности для решения: ');   read(eps);   xn1: =xn; y: =f(xn);   while abs(y)> eps do       begin xn1: =fn1(xn); y: =f(xn1); xn: =xn1 end;   writeln('x=',xn1,' f(x)=',y) end. тестовое решение: введите начальное приближение для корня: -3 введите значение погрешности для решения: 0.00001 x=-2.61645602631473 f(x)=1.28691349221555e-06

Var a,i: integer; begin write('введите число: '); readln(a); writeln('единицы: ',a mod 10); a: =a div 10; writeln('десятые: ',a mod 10); writeln('сотые: ',a div 10); readln; end.