Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что среди чисел есть кратные трем? Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”- QBasic(Бейсик)

INPUT a, b, c, d
IF a MOD 3 = 0 OR b MOD 3 = 0 OR c MOD 3 = 0 OR d MOD 3 = 0 THEN PRINT "yes" ELSE PRINT "no"

Тестирование выполнено в программе QB64 ( Скачать )