Вывести все "-" члены арифметической прогрессии -11; -

Var
  a:integer;
 
begin
  a:=-11;
  while a<0 do begin
    Write(a,' ');
    a:=a+4
    end
end.

Результат
-11 -7 -3