Пример кода на Pascal:

program SumOfFractions;
var
sum: real;
n: integer;
begin
sum := 0;
write('Enter the value of n: ');
readln(n);
// с помощью оператора цикла WHILE
while n > 0 do
begin
sum := sum + (n + 1) / n;
n := n - 1;
end;
writeln('The sum of fractions is: ', sum:0:2);
sum := 0;
n := n + 1;
// с помощью оператора цикла REPEAT
repeat
sum := sum + (n + 1) / n;
n := n + 1;
until n = 10;
writeln('The sum of fractions is: ', sum:0:2);
end.

Этот код сначала вычисляет сумму через оператор цикла WHILE, а затем через оператор цикла REPEAT. Вы можете вводить значение n и увидеть результат по формуле 2/1 + 3/2 + 4/3 + ... + (n+1)/n.