GENAP GANJIL

Imports System.Console
Module Module1
    Dim a, b, c As Long
    Sub Main()
        Write("Masukan angka   : ")
        a = ReadLine()

        If a Mod 2 = 0 Then
            Write(a & " " & " adalah bilangan Genap")
        Else
            Write(a & " " & "Adalah Bilangan Ganjil")
        End If

        Read()
    End Sub