Дано натуральное число N. Напишите программу для вычисления суммы первых N сомножителей P=2/1 . 3/2 . 4/3 . (N+1)/N
// PascalABC.NET
begin
SeqGen(ReadInteger, a -> (a + 1) / a, 1).Sum.Print
end.