ПАСКАЛЬ. Даны натуральное число 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.