Вывести все члены арифметикой прогрессии от -11 до -7 Паскаль

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

program arithmetic_progression;

va
a, d, n, member: integer;

begi
a := -11; // первый член прогресси
d := 1; // разность прогресси
n := 5; // количество членов прогрессии

writeln('Члены арифметической прогрессии от -11 до -7:');

for member := 1 to n d
begi
writeln(a + (member - 1) * d)
end
end.