Найти сумму членов арифметической прогрессии

Для решения вспомним формулу суммы членов арифметической прогрессии:

Формула суммы членов арифметической прогрессии

Далее пишем простейшую программу:

program z_5;
var a1, d, n, Sn: real;
begin
  write('Введите первый член: ');  read(a1);
  write('Введите разность: ');  read(d);
  write('Введите число членов: ');  read(n);
  Sn := ((2*a1+d*(n-1))/2)*n;
  writeln('Сумма членов: ', Sn);
end.