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

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