Imports System

Public Module Module1

    Public Sub Main()

        dim nota as integer

        console.WriteLine("ingrese una nota")

        nota = Console.ReadLine()

        if (nota >= 7) then 

            console.WriteLine("ESTAS APROBADO")

        elseif (nota >= 4) 

            console.WriteLine("Desaprobado")

        else 

            console.WriteLine("aplazado")

        end if

    End Sub

End Module