Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("CALIFICACIONES 7")

        DIM CONTADOR AS INTEGER

        DIM PROM AS INTEGER

        DIM J AS INTEGER

        DIM SUMA AS DOUBLE

        WHILE ( CONTADOR <= 6 )

            CONTADOR = + 1

            SUMA = SUMA + J

            CONSOLE.WriteLine(" INGRESE NOTA")

            J = CONSOLE.ReadLine()

        END WHILE

        PROM = SUMA / 6

        CONSOLE.WriteLine(" EL PROMEDIO ES: " & PROM)

    End Sub

End Module