CLS
INPUT "Vvedite nomer mesjaca:", n
SELECT CASE n
CASE 1: PRINT "yanvar"
CASE 2: PRINT "fevral"
CASE 3: PRINT "mart"
CASE 4: PRINT "aprel'"
CASE 5: PRINT "maj"
CASE 6: PRINT "ijun'"
CASE 7: PRINT "ijul'"
CASE 8: PRINT "avgust"
CASE 9: PRINT "sentjabr'"
CASE 10: PRINT "oktjabr'"
CASE 11: PRINT "nojabr'"
CASE 12: PRINT "dekabr'"
CASE ELSE: END
END SELECT
Тестирование выполнено в программе QB64 ( Скачать )