ПАСКАЛЬ. Даны натуральное число n, действительное число x. Вычислить

Вот, вложенный цикл)

var
  x, res: real;
  n, k, m: integer;

begin
  writeln(Enter n, x:);
  readln(n, x);
 
  res := 0;
  for k := 1 to n do
    for m := k to n do
      res := res + (x + k) / m;
 
  writeln(res);
end.