Составить программу для вычисления корня нелинейного уравнения по методу касательных х^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.