{ сумма ряда }
var x: real;
{ нахождение суммы ряда }
function Sum(x: real) : real;
var i: integer;
    s,pow,prom: real;
begin
   prom:=1;
   pow:=x;
   s:=x;
   i:=3;
   repeat
     begin
       pow:=pow*x*x;
       if ((i mod 2)=1) then pow:=-pow;
       s:=s+(pow*prom)/(i*(i-1));
       prom:=prom/(i*(i-1));
       i:=i+2;
     end;
   until i>13;
   Result:=s;
end;
{ конец процедуры }
{ основная программа }
begin
  write('задайте x:  ');
  readln(x);
  writeln('сумма ряда равна:  ',Sum(x):8:5);
end.