// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Число членов прогрессии:');
var (a1,r):=ReadReal2('Первый член и шаг:');
var sn:=(2*a1+r*(n-1))/2*n;
Writeln('Сумма равна ',sn)
end.
Пример
Число членов прогрессии: 23
Первый член и шаг: -3.6 2.15
Сумма равна 461.15