Imports System.IO
Module Module1
Sub Main()
Dim n As Integer
Try
Console.Write("Enter a number: ")
n = Convert.ToInt32(Console.ReadLine())
If ((n And 1) = 1) Then
Console.WriteLine("Odd")
Else
Console.WriteLine("Even")
End If
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
'run1:
'
'Enter a number: 10
'Even
'run2:
'
'Enter a number: 13
'Odd
End Module