Найти все нечетные числа в интервале от 9 до 22. Написать программу

В программе использовано условие: если при делении числа на 2 остаток равен 1 (I mod 2 = 1), тогда это число нечетное и его надо вывести на экран. Для перебора чисел использован цикл for.

program find;

var i:integer;

begin

for i:=9 to 22 do if i mod 2 = 1 then write (i:4);

end.