Question

Кто поможет с информатикой кто знаток в информатике, очень срочно!!!!

Answer 1

// 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