Imports System

Imports Microsoft.visualbasic               

Public Module Module1

    Public Sub Main()

        Dim N as Integer

        Dim City() as Char

        City=Console.ReadLine()

        N=0

        Do

            If City(N)>="A" AND City(N)<="Z" then

                Console.WriteLine("Uppercase")

            elseif City(N)>="a" AND City(N)<="z" then

                Console.WriteLine("Lowercase")

            else Console.WriteLine("No")

            END If

            N=N+1

        Loop until N>Len(City)

    End Sub

End Module