Imports System

Public Module Module1

    Public Sub Main()

        dim nota as integer

        nota = 7

        if nota >= 5 then

            Console.WriteLine("APROBADO")

        else 

            Console.WriteLine("SUSPENSO")

        end if

    End Sub

End Module