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

var  a:integer;  begin  a:=-11;  while a<0 do begin    Write(a,' ');    a:=a+4    endend.Результат-11 -7 -3