Imports System
Imports microsoft.visualbasic
Public Module Module1
Public Sub Main()
Dim n1 as integer
n1 = console.ReadLine()
IF n1 < 65 then
Console.WriteLine("type a number between 65 and 90")
End If
If n1 > 90 then
End IF
Dim n2 as string = asc(n1)
console.WriteLine(n2)
End Sub
End Module