Язык программирования Бейсик Здравствуйте. Кто может найти ошибку в моем решении…

Язык программирования Бейсик Здравствуйте. Кто может найти ошибку в моем решении задачи: «Напишите программу, которая находит кол-вочисел, кратных 3, но не кратных 6, в последовательности заданных чисел. Программа получает на вход целые числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Кол-во чисел не превышает 1000. Введенные числа по модулю не превышают 30000."