Imports System

​

Public Module Module1

 dim numero1 as integer

 dim numero2 as integer 

 dim numero3 as integer 

​

    public Sub Main()

        Console.WriteLine("ingrese el primer numero")

        numero1=console.ReadLine()

​

        Console.WriteLine("Ingrese el segundo número: ")

        numero2=console.ReadLine()

​

        Console.WriteLine("Ingrese el tercer número: ")

        numero3=console.ReadLine()

        if (numero1 + numero2 + numero3)/3>6 

            Console.WriteLine("aprobaste")

        else 

            Console.WriteLine("desaprobaste")

​

        end if 

    End Sub

End Module