PascalДано вещественное число X и целое число N (> 0). Найти значение выражения(n слагаемых)

program prog77;

var

   x : real;

   n: integer;

   s: real;

   i: integer;

begin

 write ('x = ?');

 readln(x);

 write ('n = ?');

 readln(n);

 s := 0;

 for i := 1 to n do

 begin

   s := s + i/(x+i);

 end;

 write ('S = ', s);

end.