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

program zz1;

var i:integer; / /заводим переменную для цикла

begin

for i:=1000 to 9999 do / /организуем цикл, который переберет все числа от тысячи до девяти тысяч девятьсот девяносто девяти

if i mod 15 = 1 then write (i,' '); / / проверяем, если очередное четырехзначное число не делится на пятнадцать, то выводим его на экран в строчку через пробел

end.