Среди чисел 1, ..., n найти все такие, которые делятся без остатка на 3, 5, 7, 9 - QBasic

Формулировка задачи:

Дано натуральное число n. Среди чисел 1, ..., n найти все такие, которые делятся без остатка на 3, 5, 7, 9. Нахождение кратных чисел оформить в виде процедуры.

Решение задачи: «Среди чисел 1, ..., n найти все такие, которые делятся без остатка на 3, 5, 7, 9»

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

  DECLARE FUNCTION Kratnost% (Vl&)
 
CLS
INPUT "Vvedite predel: ", n
  FOR i& = 1 TO n
     IF Kratnost%(i&) = 1 THEN PRINT i&,
  NEXT
 
FUNCTION Kratnost% (Vl&)
  IF Vl& MOD 315 = 0 THEN
     Kratnost% = 1
  ELSE Kratnost% = 0
  END IF
END FUNCTION

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

Сначала объявляется функция Kratnost% (Vl&)
Затем происходит очистка экрана и пользователю предлагается ввести число n (количество чисел для проверки)
Далее, в цикле от 1 до n проверяется каждое число на делимость без остатка на 3,5,7,9
Если число делится без остатка на 315, то оно считается кратным и выводится на экран
В конце, функция Kratnost% (Vl&) проверяет число Vl& на делимость без остатка на 315
Если число делится без остатка на 315, то возвращается 1, иначе 0