program arithmetic_progression;

var
a, d, n, member: integer;

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

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

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