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