(*$B- Aufgabe 2.15B  *)
PROGRAM integral;
VAR x:real;

FUNCTION int(x:real):real;
VAR s,salt, t, alpha,z : real; i: integer;
BEGIN
  alpha :=-1/3;
  z := sqr(x);
  s :=x; t :=x ; i := 0;
  REPEAT
     salt :=s; i:= i+1 ; t := t*z/i*(alpha-i+1);
     s:=salt+t/(2*i+1)
  UNTIL s = salt;
  int := s
END;

BEGIN
  REPEAT
     write('obere Grenze (muss < 1 sein) x = ?'); read(x);
     writeln(int(x));
  UNTIL eof
END.