program IExe3;
{ solve the equation X*X*X-2=0 }
uses
  //Forms,
  UInterv ;

(*   {$R *.RES}   *)

function F2(X:TIFloat):TIFloat; far;
begin
F2:=X*X*X-2
end;

function DF2(X:TIFloat):TIFloat; far;
begin
DF2:=3*X*X
end;

var N:TIntervalNewtonSolution;
    I:Longint;
begin
  N.Init(F2,DF2,ISet(-100,200));
  for I:=1 to 20 do
      begin
      Writeln(IntervalToStr(N.RunStep));
     // ReadLn;
      end;
  N.Done;

  ReadLn;


end.