Определить наибольшее число кратное трем, оканчивающееся на 2 - QBasic

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

Напишите программу, которая в последовательности натуральных чисел определяет наибольшее число кратное трем, оканчивающееся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное трем, оканчивающееся на 2. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: наибольшее число кратное трем, окнчанчивающееся на 2. Входные данные: 6 2 18 12 99 42 232

Решение задачи: «Определить наибольшее число кратное трем, оканчивающееся на 2»

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

CLS
 
DO
   INPUT "N = "; N
LOOP UNTIL N <= 1000
 
FOR i = 1 TO N
   INPUT "CHISLO = "; S
 
   IF S MOD 3 = 0 AND S MOD 10 = 2 THEN
      IF Smax < S THEN
         Smax = S
      END IF
   END IF
NEXT
 
PRINT Smax

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

Установка начального значения переменной N равным 1.
Ввод числа N с клавиатуры.
Проверка условия N <= 1000.
Ввод числа S с клавиатуры в цикле.
Проверка условия S MOD 3 = 0 AND S MOD 10 = 2.
Если условие выполняется, то проверка на максимальное значение Smax.
Если значение S больше, то обновление значения Smax.
Вывод значения Smax на экран.