По номеру месяца выдать название следующего за ним месяца - QBasic

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

Помогите пожалуйста решить две задачи в qbasic на оператор выбора. 1. Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при т = 1 получаем февраль, 4 — май и т.д.). 2. Пусть элементами равностороннего треугольника являются: 1) сторона а; 2) площадь S; 3) высота h; 4) радиус вписанной окружности r; 5) радиус описанной окружности R. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.

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

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

DATA "January", "February", "March"
DATA "April", "May", "June","July"
DATA "August", "September", "October",
DATA "November", "December"
 
CLS
DIM A(1 TO 12) AS STRING
 
FOR i = 1 TO 12
   READ A(i)
NEXT i
 
INPUT "N = "; n
IF n < 12 THEN PRINT A(n + 1) ELSE PRINT A(1)
END

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

Создаются массивы с названиями месяцев.
В цикле записываются значения массива в переменные A.
Пользователю предлагается ввести номер месяца.
Проверяется, если номер меньше 12, то выводится название следующего месяца, иначе выводится название первого месяца.