Вычислить сумму ряда с заданной точностью - PascalABC.NET (24760)

const
  eps = 1e-8;
begin
  var x := ReadLnReal('x =');
  var a := x;
  var s := a;
  var n := 0;
  repeat
    n += 2;
    a *= x * (n - 1) / n;
    s += a;
  until a < eps;
  WriteLn('S = ', s);
end.