Imports System

Public Module Module1

    Public Sub Main()

        dim num as integer

        dim s as string

        num=console.readline()

        select case num 

        case 1 To 7

            S="幼稚園"

        case 7 To 12

            s="國小"

        case 13 To 18

            S="中學"

        case 19,20,21,22

            S="大學"

        case 23.24 To 26,27,Is>27

            S="研究所"

        end select

        console.Writeline(S)

    End Sub

End Module