Imports System

Public Module Module1

    Public Sub Main()

        dim Promedio as decimal = 0

        dim CantidadNotasAprobadas as Integer = 0

        dim Nota as Integer = 0

        dim maximaNota as Integer = 0

        for contador = 1 To 10 

        console.WriteLine(contador.ToString() + "/10-Porfavor ingrese una nota")

        nota = console.ReadLine()

        If nota >= 7 then

            console.WriteLine("Este alumno aprobó")

            promedio = promedio + nota

            CantidadNotasAprobadas = CantidadNotasAprobadas + 1

        End if

        If nota > maximaNota then

            maximaNota = nota

        End if

    Next contador

    promedio = promedio / CantidadNotasAprobadas

    console.WriteLine("La maxima nota obtenida fue de: " + maximaNota.ToString()) 

    console.WriteLine("El pomedio de las notas aprobadas fue de: " + promedio.ToString())

    End Sub

End Module