label 1;
var xn, xk,xi,eps,fxn,fxk,fxi:real;
begin
     xn:=0; //левый интервал
     xk:=2; //правый интервал
     eps:=0.1; //погрешность
     repeat
          if abs(xk-xn)<eps then goto 1; //корень в пределах заданной погрешности найден
          fxn:=xn*xn*xn*xn+xn*xn-10; //F(левого интервала) 
          fxk:=xk*xk*xk*xk+xk*xk-10; //F(правого)
          xi:=(xk+xn)/2; //нахождение средней точки
          fxi:=xi*xi*xi*xi+xi*xi-10; //F(средней точки)
          if fxn*fxi<0 then xk:=xi; //определение интервала где находится корень
          if fxi*fxk<0 then xn:=xi; //так же
          writeln('xn=',xn);
          writeln('fxn=',fxn);
          writeln('xk=',xk);
          writeln('fxk=',fxk);
          writeln('|xk-xn|=',abs(xk-xn));
          writeln('xi=',xi);
          writeln('fxi=',fxi);
     until fxi=0;
     1:
     writeln('__________________________________');
end.