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

var
xn,xn1,y,eps:real;
begin
Writeln(Введите начальное приближение для корня: );
Read(xn);
Writeln(Введите значение погрешности для решения: );
Read(eps);
xn1:=xn; y:=f(xn);
while абс(y)gt;eps do
begin xn1:=fn1(xn); y:=f(xn1); xn:=xn1 end;
Writeln(x=,xn1, f(x)=,y)
end.