Даны три числа. Используя эти числа создать наибольшее четное число, если невозможно, то программа должна напечататьНЕТ - QBasic

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

Даны три числа Используя этих чисел создать наибольшее четное число, если невозможно, то программа должна напечатать "НЕТ" Результат естественно напечатать. Например: 1) 5 6 2 РЕЗУЛЬТАТ: 652 2) 5 9 3 НЕТ (так ка нету четного числа среди чисел)

Решение задачи: «Даны три числа. Используя эти числа создать наибольшее четное число, если невозможно, то программа должна напечататьНЕТ»

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

CLS
RANDOMIZE TIMER
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER
 
a = INT(10 * RND)
b = INT(10 * RND)
c = INT(10 * RND)
 
PRINT a; b; c
PRINT
 
IF a < b THEN SWAP a, b
IF a < c THEN SWAP a, c
IF b < c THEN SWAP b, c
 
IF c MOD 2 = 0 THEN
   PRINT 100 * a + 10 * b + c
ELSEIF b MOD 2 = 0 THEN
   PRINT 100 * a + 10 * c + b
ELSEIF a MOD 2 = 0 THEN
   PRINT 100 * b + 10 * c + a
ELSE
   PRINT "NET"
END IF

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

CLS — команда очистки экрана.
RANDOMIZE TIMER — команда инициализации генератора случайных чисел.
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER — команда объявления переменных.
*a = INT(10 RND)** — генерация случайного числа в пределах от 0 до 99 и приведение его к целочисленному типу с шагом 10.
*b = INT(10 RND)** — генерация случайного числа в пределах от 0 до 99 и приведение его к целочисленному типу с шагом 10.
*c = INT(10 RND)** — генерация случайного числа в пределах от 0 до 99 и приведение его к целочисленному типу с шагом 10.
PRINT a; b; c — вывод значений переменных на экран.
SWAP a, b — обмен значениями переменных a и b.
SWAP a, c — обмен значениями переменных a и c.
SWAP b, c — обмен значениями переменных b и c.
IF c MOD 2 = 0 THEN — проверка на четность числа c.
PRINT 100 a + 10 b + c — вывод наибольшего четного числа, составленного из чисел a, b и c.
ELSEIF b MOD 2 = 0 THEN — проверка на четность числа b.
PRINT 100 a + 10 c + b — вывод наибольшего четного числа, составленного из чисел a, c и b.
ELSEIF a MOD 2 = 0 THEN — проверка на четность числа a.
PRINT 100 b + 10 c + a — вывод наибольшего четного числа, составленного из чисел b, c и a.
ELSE — проверка на нечетность чисел a, b и c.
PRINT NET — вывод на экран сообщения NET (или НЕТ).
END IF — завершение условного оператора.
END — завершение программы.