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

program zz1;

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

begin

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

read (a);

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

read (d);

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

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

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

end.