Найти все нечетные числа в интервале от 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.