program IExe2;

uses
  //Forms,
  UInterv ;

  //  {$R *.RES}

function F1(X:TIFloat):TIFloat; far;        // f(X)
begin
F1:=X*X-2
end;

function DF1(X:TIFloat):TIFloat; far;      // f'(X)
begin
DF1:=2*X
end;

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