Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Introduce la nota del examen teórico ")

        Dim  teórico  as Integer = Console.ReadLine()

        Console.Write("Introduce la nota del examen práctico ")

        Dim práctico As integer  = Console.ReadLine()

        If teórico > 0 and práctico < 50  then 

            Console.WriteLine("La nota es reprobo ")

        Elseif teórico > 80 and práctico < 90  then 

            Console.WriteLine("La nota es Distincion ")

        Elseif teórico > 51 and práctico < 79 then 

            Console.WriteLine("La nota es Merito ")

        else 

            Console.WriteLine("La nota paso")

​

        end if 

​

    End Sub

End Module