program abs1;
uses crt;
var x1,x0,l,y:real;
begin
 clrscr;
  writeln ('введите x0 из [1,2]');
  readln (x0);
  writeln ('введите точность');
  readln (l);
  x1:=x0-((0.2*x0)*sqr(0.2*x0)-cos(x0))/(3*sqr(0.2*x0)+sin(x0));
while abs(x1-x0)>l do
      begin
           x0:=x1;
           x1:=x0-((0.2*x0)*sqr(0.2*x0)-cos(x0))/(3*sqr(0.2*x0)+sin(x0));
      end;
  writeln ('x=',x1);
  y:=0.2*x1*0.2*x1*0.2*x1-cos(x1);
  writeln('y=',y);
   readln
end.