Pascal. (через операторы цикла while и repeat) вычислить 2/1+3/2+4/3++(n+1)/n

Var sum,a,n:real; 
begin 
sum:=0; 
a:=1; 
writeln('Введите n'); 
read(n); 
n:=n+1; 
repeat 
sum:=sum+(a+1)/a; 
a:=a+1; 
until a=n; 
writeln(sum); 
end.

А)1. Выбрать пункт ,,Вставка’’

2.Выбрать окно ,,Таблица’’

3. Настроить  ,,Таблица 7x5’’(7столбцов,5строк)

ГОТОВО

Б)Строк 5

Столбцов 7

В)Первый Соответствующие пункты меню можно найти на закладке «Макет» вкладки «Работа с таблицами», а также в появляющемся меню после нажатия правой кнопкой мыши на таблицу. На закладке «Макет» при выборе пункта меню «Удалить» раскрывается список, в котором можно выбрать «Удалить столбцы» и «Удалить строки». ( )

Второй выделить содержимое ячейки в строке или столбце, которые вы хотите удалить. Откроется всплывающее меню. Нажмите кнопку Удалить и выберите команду Удалить строку или удалить столбец.

Объяснение:

Так как сам только начал разбирать эту тему, ответ не уверен что правильный.

Чтобы данное уравнение обращалось в 1, нужно что бы (K*L) ->M = 1 И N*K*V*L = 1.

составляем систему.
1) N*K*L*V = 1 только при  N=K=L=V=1; следовательно возможно лишь одно решение данной части 1111. Проверим другую часть
2) K*L - > M = 1 Упростив, получим НЕ K * НЕ L * M = 1;
здесь уже больше вариантов, а именно 
101; 111; 110; 100; 001, и для каждого еще подходят 2 значения переменной V, так как она не участвует в этой операции. Получим
1010 1011 1111 1110 1100 1101 1001 1000 0010 0011.
Но так как оба условия должны выполняться, то подходит лишь ответ 1111.

Опять же повторюсь, не уверен, что правильно!