Отыскать все нечетные числа в промежутке от 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.