Найти сумму 10 членов арифметической прогрессии A,A+D,A+2D,...,где А - первый член прогрессии,D - постоянное слагаемое, разность прогрессии.Паскаль

Предыдущий
вопрос Следующий
вопрос

program sum_of_progression;

var
A, D, i, sum: integer;

begin
A := 1; // первый член прогрессии
D := 2; // постоянное слагаемое

sum := 0;

for i := 0 to 9 do
begin
sum := sum + (A + i * D);
end;

writeln('Сумма 10 членов арифметической прогрессии: ', sum);
end.