program laba_4;
 uses crt;

 var summa : real;
     n : byte;
     zn: shortint;
     x : integer;
     t : real;
     p : real;


 procedure step (var x:integer; st : byte);
  var i:byte;
      k:integer;
  begin
   k:=1;
   for i:=1 to st do
    k:=k*x;
   x:=k;
  end;

 procedure procnew (var sum : real; var x : integer; var n : byte; var zn : shortint; var p : real);
  begin
   p:=x;
   step (x,n);
   sum:=sum+(zn)*x/n;
   n:=n+2;
   zn:=-1*zn;
  end;

 function funnew (sum : real; var x : integer; var n : byte; var zn : shortint; var p : real) : real;
  begin
   p:=x;
   step (x,n);
   funnew:=sum+zn*x/n;
   n:=n+2;
   zn:=-1*zn;
  end;



begin
 clrscr;

 write ('step tochnosti: ');
 readln (t);

 write ('x: ');
 readln (x);

 summa:= 0;
 p:=0;
 n:=1;
 zn:=1;

{ repeat
  procnew(summa, x, n, zn ,p);
 until ((x/n<t) or (abs(x/n-p)<t));
}
 repeat
  summa:=funnew(summa, x, n, zn, p);
 until ((x/n<t) or (abs(x/n-p)<t));

 write (summa);
 readln;

end.