Напишите программу, которая в последовательности натуральных чисел определяет число кратное 6 - QBasic

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

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Входные данные: 3 18 26 24 Выходные данные: 2

Решение задачи: «Напишите программу, которая в последовательности натуральных чисел определяет число кратное 6»

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

INPUT n
FOR i=1 TO n
INPUT a
IF a MOD 6=0 THEN k=k+1
NEXT
PRINT k

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

В начале программы объявляются две переменные: n (количество чисел в последовательности) и k (счетчик количества чисел, кратных 6). Значение переменной k инициализируется нулем.
Пользователю предлагается ввести значение переменной n.
Затем начинается цикл, который выполняется n раз.
В каждой итерации цикла пользователю предлагается ввести значение переменной a.
Затем выполняется проверка: если a делится на 6 без остатка, то значение переменной k увеличивается на единицу.
После завершения цикла выводится значение переменной k, которое показывает количество чисел, кратных 6, в последовательности.