Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Question 5")
Dim n1 as integer
n1 = Console.ReadLine()
If(n1 = 1) then
Console.WriteLine("One")
Else If(n1 = 2) then
Console.WriteLine("Two")
Else If(n1 = 3) then
Console.WriteLine("Three")
Else If(n1 = 4) then
Console.WriteLine("Four")
Else If(n1 = 5) then
Console.WriteLine("Five")
Else If(n1 = 6) then
Console.WriteLine("Six")
Else If(n1 = 7) then
Console.WriteLine("Seven")
Else if(n1 = 8) then
Console.WriteLine("Eight")
Else If(n1 = 9) then
Console.WriteLine("Nine")
Else if(n1 = 10) then
Console.WriteLine("Ten")
Else if(n1 > 10) then
Console.WriteLine("Number more than 10")
End If
End Sub
End Module
