Розв’язок задачі з Абрамова №336г

Всі умови | Умова: Дано натуральне число n, дійсне число x. Обчислити ... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №336)

program Pr336_4;
var
   a : real;
   n, m, k : integer;
   x : real;
begin
   writeln('Input x:');
   readln(x);
   writeln('Input n:');
   readln(n);
   a := 0;
   for k := 1 to n do
      for m := k to n do
      begin
         a := (x + k) / m + a;
      end;
   writeln ('Result:',a:10:3);
end.