Imports System

Public Module Module1

    Public Sub Main()

        dim ab as integer

        Console.WriteLine("Ingrese año")

        ab=console.readline

        if ab mod 4 = 0 and ab mod 100 <> 0 then

            console.Write("Es un año Bisiesto")

        else

            console.Write("No es un año Bisiesto")

        end if

    End Sub

End Module