Составить программу, которая по возрасту ребенка определяет период его психологического развития согласно возрастной периодизации — QBasic(Бейсик)

REM Составить программу, которая по возрасту ребенка определяет период его психологического развития
REM согласно возрастной периодизации.
REM ( до года — младенческий возраст, 1-3 — раннее детство, 4-6 — дошкольный возраст,
REM 7-10 — младший школьный возраст, 11-15 — подростковый возраст, 16-18 — юношеский возраст).
INPUT a
SELECT CASE a
  CASE IS < 1
    PRINT "младенческий возраст"
  CASE 1 TO 3
    PRINT "раннее детство"
  CASE 4 TO 6
    PRINT "дошкольный возраст"
  CASE 7 TO 10
    PRINT "младший школьный возраст"
  CASE 11 TO 15
    PRINT "подростковый возраст"
  CASE 16 TO 18
    PRINT "юношеский возраст"
  CASE ELSE
    PRINT "ошибка"
END SELECT
END