Imports System.IO
Module Module1
Sub Main()
Dim n As Integer
Try
Console.Write("Enter a number: ")
n = Convert.ToInt32(Console.ReadLine())
Console.WriteLine(If((n Mod 2 = 0), "Even", "Odd"))
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