Написать программу в паскале напечатать все положительные нечётные трёхзначные числа

Program rd;
var i:integer;
begin
for i:=100 to 999 do if i mod 2 = 1 then write(i,' ');
end.

PascalABC.NET 3.2

begin Range(101,999,2).Println end.