1. Короткий вариант
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
Range(-99,-1,2).Print
end.
Результат
-99 -97 -95 -93 -91 -89 -87 -85 -83 -81 -79 -77 -75 -73 -71 -69 -67 -65 -63 -61 -59 -57 -55 -53 -51 -49 -47 -45 -43 -41 -39 -37 -35 -33 -31 -29 -27 -25 -23 -21 -19 -17 -15 -13 -11 -9 -7 -5 -3 -1
2. Школьный вариант
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
i:integer;
begin
i:=-99;
repeat
Write(i,' ');
i:=i+2
until i>-1
end.