program summa_rjada;
{$APPTYPE CONSOLE}
uses
  Sysutils;
var
   x,e,s, ui,u :  real;
   i : integer;
begin
   writeln('Введите значение x ');
   readln(x);
   repeat
      write('Введите точность [0.0001;0.001] e=');
      readln(e);
      until (e>= 0 . 0001 )and(e<= 0 . 001 );{типа  0 . 0002 }
   {начальные значения}
   s:=x;{сумма}
   ui:=x;{член ряда}
   i:= 1 ;{номер его}
   repeat
      u:=ui;{запомним предыдущую сумму}
      {рекуррентное соотношение U(n)=U(n- 1 )*x^ 2 *( 2 *n- 1 )/( 2 *n*( 2 *n+ 1 ))
      или домножаем на x^ 2 , домножаем на первое нечетное число из предыдущего знаменателя и делим на  2  следующих числа}
      ui:=ui*x*x*( 2 *i- 1 )/( 2 *i*( 2 *i+ 1 ));{вычисляем очередной член ряда}
      i:=i+ 1 ;{следующий}
      s:=s+ui;{новая сумма}
      until (u - ui ) < e;
   writeln('При х= ',x: 0 : 2 );
   writeln('Погрешность=',abs(u-ui): 0 : 5 );
   writeln('Сумма=',s: 0 : 5 );
   writeln('i=',i);
   readln
   end.

program dd;
uses crt;
var
s,u1,u2,x,e:real;
i:byte;
begin
clrscr;
write ('x='); readln (x);
write ('e='); readln (e);
s:=x;
u2:= 1 ;
i:= 1 ;
repeat
u1:=u2;
u2:=u2*x*x*( 2 *i- 1 )/( 2 *i*( 2 *i+ 1 ));
s:=s+u2;
i:=i+ 1 ;
until abs(u2-u1)<=e;
writeln (s: 10 : 3 );
readln;
end.