Как вычислить количество нечетных чисел от 15 до 30? - QBasic

Люди, выручайте. Пожалуйста! Вычислить количество нечетных чисел от 15 до 30. Если не трудно нарисуйте блок-схемы. Заранее очень благодарен.

Листинг программы

FOR i=15 TO 30
IF i MOD 2 = 1 THEN r=r+1
NEXT i
PRINT r

Объяснение кода листинга программы

Объявляется переменная i типа integer со значением 15
Устанавливается условие для цикла for, чтобы он выполнялся от 15 до 30 (включительно)
Внутри цикла проверяется, является ли значение i нечетным (остаток от деления на 2 не равен нулю)
Если условие выполняется, то к переменной r прибавляется единица
Цикл завершается, и выводится значение переменной r, которое содержит количество нечетных чисел от 15 до 30