Знайти суму перших n членів арифметичної прогресії {An}, якщо відомі А1 і D. Паскаль

Question

Знайти суму перших n членів арифметичної прогресії {An}, якщо відомі А1 і D.
Паскаль

Answer 1

Var n,d,a1,a0,i:integer;
begin
writeln('d=');
read(d);
writeln('n=');
read(n);
writeln('a1=');
read(a1);
a0:=a1;
for i:=2 to n do
a0:=a0+d;
writeln('Сумма равна');
writeln(a0);
end.
.