VAR
 x,e,Y,a:Real;
 n:WORD;
BEGIN
 Write('Enter x (-1<x<1) ');
 ReadLn(x);
 Write('Enter e (e>0; e<Abs(x)) ');
 ReadLn(e);
 a:=SQR(x)/2;
 Y:=1+a;
 n:=3;
 Repeat
  a:=-a*SQR(x)/n;
  Y:=Y+a;
  INC(n);
 Until ABS(a)<e;
 WriteLn('Y= ',Y);
 ReadLn;
END.