Определить сколько в цикле четных чисел и какое из введенных наибольшее - QBasic

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

Помогите решить еще одну задачу: в цикле вводится пять произвольных чисел, определить сколько из них четных, найти наибольшее из введенных чисел. Эти пять чисел должны вводится после запуска программы.

Решение задачи: «Определить сколько в цикле четных чисел и какое из введенных наибольшее»

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

DECLARE SUB Vvod (n!)
CLS
DIM SHARED k
DIM SHARED max
CALL Vvod(5)
PRINT "K ="; k; "MAX ="; max
END
 
SUB Vvod (n)
   IF n = 0 THEN EXIT SUB
   INPUT "A = "; a
   IF a MOD 2 = 0 THEN k = k + 1
   IF a > max THEN max = a
   CALL Vvod(n - 1)
END SUB

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

В этом коде используется подпрограмма для подсчета количества четных чисел и нахождения наибольшего числа, введенного пользователем. Список действий в коде:

Объявление подпрограммы Vvod.
Очистка экрана.
Объявление двух общих переменных: k и max.
Вызов подпрограммы Vvod с аргументом 5.
Вывод значения переменной k и max.
Ввод значения переменной a.
Проверка на четность: если число четное, то увеличение значения переменной k на 1.
Проверка на наибольшее число: если число больше текущего максимального числа, то обновление значения переменной max.
Рекурсивный вызов подпрограммы Vvod с аргументом n-1.
Конец подпрограммы. Пользователь вводит 5 чисел, и каждое число проверяется на четность и на наибольшее число среди всех введенных.