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

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.