// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('S=',SeqGen(n,i->(i+1)/(i+2)).Sum)
end.

Пример
n= 12
S=9.81986624486625

Во вложении дано точное решение в простых дробях и его приближение десятичной дробью с 20 знаками. Вычисление по приведенной программе различается на единицу в последнем разряде, что в данном случае является пределом точности машинной арифметики, принятой для переменных типа double.