Дано натуральное n. Вычислить
2/1+3/2+4/3+...+n+1/n.Паскаль.

//PascalABC.NET//Версия 3.3.5, сборка 1650beginvar n:=ReadInteger('n=');write(SeqGen(n,i->(i+1)/i,1).Sum);end.