Дано натуральное число n и действительное а. Вычислить S=1/a+1/a(a+1)+1/a(a+1)(a+2)+…+1/a(a+1)(a+2)…(a+n), n=10 — Pascal(Паскаль)

var
  i: integer;
  pr, sum, a: real;

begin
  readln(a);
  pr := 1;
  sum := 1 / a;
  for i := 1 to 10 do
  begin
    pr := pr * (a + i);
    sum := sum + (1 / (a * pr));
  end;
  write('Sum:=', sum);

end.