Найти сумму членов арифметической прогрессии,если ее первый член,разность и число членов прогрессии задаеь пользователь.
(Var a1, d, n, S : REAL; )

//PascalABC.NET 3.1 сборка 1200begin  var d := ReadReal('d =');  var s := SeqGen(    ReadInteger('n ='),     ReadReal('a1 ='),     a -> a + d)    .Aggregate((s, x)-> s + x);  writeln(s);end.