Вычислить номер дня в невисокосном году по заданным числу и месяцу - QBasic

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

Помогите пожалуйста! Нужно написать программу, которая сможет вычислить номер дня в не високосном году по заданным числу и месяцу на языке qbasic. Спасибо! Вроде с этим языком у меня для новичка пойдёт, но я запутался: DIM i AS INTEGER, day AS INTEGER, num AS INTEGER PRINT "Enter month's day" INPUT "day="; day PRINT "Enter month's number" INPUT "num="; num Month1 = 31 Month2 = 28 Month3 = 31 Month4 = 30 Month5 = 31 Month6 = 30 Month7 = 31 Month8 = 31 Month9 = 30 Month10 = 31 Month11 = 30 Month12 = 31

Решение задачи: «Вычислить номер дня в невисокосном году по заданным числу и месяцу»

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

CLS
DIM Mon(1 TO 12)
DIM d AS STRING
DIM dn AS STRING
DIM dm AS STRING
 
DATA 31,28,31,30,31,30,31,31,30,31,30,31
 
FOR i = 1 TO 12
   READ Mon(i)
NEXT i
 
INPUT "D = "; d
 
dn = MID$(d, 1, 2)
dm = MID$(d, 4, 2)
NN = VAL(dn)
NM = VAL(dm)
 
FOR i = 1 TO NM - 1
   K = K + Mon(i)
NEXT i
K = K + NN
PRINT "Kol ="; K
END

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

Установка начального значения переменной K равным 0.
Задание массива Mon(1 TO 12) размером 12 элементов для хранения количества дней в каждом месяце.
Запись в массив Mon(1 TO 12) значения количества дней в каждом месяце.
Ввод с клавиатуры строки d, содержащей число и месяц.
Выделение из строки d первых двух символов (числа) в переменную dn и следующих двух символов (месяца) в переменную dm.
Преобразование чисел в переменных dn и dm в значения NN и NM соответственно.
Начиная с месяца NM, суммирование элементов массива Mon(1 TO 12) до количества NM-1.
Добавление к полученной сумме значения NN.
Вывод на экран значения переменной K.