Вывести все четырехзначные числа, числа которых являются нечетными программировать в pascal

program zz1;
var i:integer; //заводим переменную для цикла
begin
for i:=1000 to 9999 do //организуем цикл, который переберет все числа от тысячи до 9 тыщ девятьсот девяносто 9
if i mod 15 = 1 then write(i, ); // проверяем, если еще одно четырехзначное число не делится на пятнадцать, то выводим его на экран в строку через пробел
end.