Imports System
Public Module Module1
Public Sub Main()
Dim n1 as Integer
Console.WriteLine("Type in a number")
n1 = Console.ReadLine()
If n1 mod 2 = 0 then
Console.Writeline("even")
Else Console.WriteLine("Odd")
End If
End Sub
End Module