Вычислить сумму членов ряда с точностью до члена ряда, меньшей E

var s,si,x,e:real;
    i:integer;
begin
  write('x = ');readln(x);
  write('eps = ');readln(e);
  s:=0;si:=1;i:=1;
  repeat
    si:=x*si/(x+i);
    s:=s+si;
    inc(i);
  until abs(si)<e;
  write('s = ',s:0:10);
  readln
end.

var s, si, e: double;
    i, x: longint;
begin
  repeat
    write('Integer x >= -1;  x = ');
    readln(x)
  until x >= -1;
  if x = 0
    then s := 0
    else begin
      repeat
        write('Real eps > 0;   eps = ');
        readln(e)
      until e > 0;
      if x = -1
        then begin
          si := x;
          s := si;
          i := 2
        end
        else begin
          si := 1;
          for i := 2 to x do si := si / i;
          s := 0;
          i := 1
        end;
      repeat
        si := x / (x + i) * si;
        s := s + si;
        inc(i)
      until abs(si) < e
    end;
  write('s = ', s);
  readln
end.