Определить количество элементов последовательности, кратных 4 - QBasic

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

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4.

Решение задачи: «Определить количество элементов последовательности, кратных 4»

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

INPUT "N = "; N
FOR i = 1 TO N
      INPUT "CHISLO = "; S
      IF S MOD 4 = 0 THEN k = k + 1
   NEXT
  PRINT k

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

Вводится число N с помощью функции INPUT.
Запускается цикл FOR, который выполняет следующие действия: — В каждой итерации цикла с помощью функции INPUT запрашивается число S. — Выполняется проверка на кратность числа S числу 4 с помощью оператора MOD. — Если число S кратно 4, то к переменной k прибавляется единица.
После завершения цикла, выводится значение переменной k с помощью функции PRINT.