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

program zz1;

var a, d, r, i:integer; // задаем переменные целого типа

begin

write( введите 1-ый член арифметической прогрессии );  // вводим с клавиатуры 1-ое число

read(a);  

write( введите разность арифметической прогрессии );  // вводим с клавиатуры 2-ое число

read(d);

for i:=0 to 9 do // задаем цикл на десять повторений

r:= r + a + i * d ; // вычисляем сумму, прибавляя к ней очередной член арифметической прогрессии

write( сумма 10 членов арифметической прогрессии = , r); // выводим ответ

end.