Imports System

Public Module Module1

 dim numero1 as integer

 dim numero2 as integer 

 dim numero3 as integer 

    public Sub Main()

        Console.WriteLine("ingrese un numero")

        numero1=console.ReadLine()

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

        numero2=console.ReadLine()

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

        numero3=console.ReadLine()

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

            Console.WriteLine("aprobado")

        else 

            Console.WriteLine("desaprobado")

        end if 

    End Sub

End Module