Imports System

Public Module Module1

    Public Sub Main()

        DIM NOTA, MAYOR, MENOR, CONTADOR AS INTEGER

        DIM RESPUESTA AS STRING 

        NOTA = 0

        MAYOR = 0

        MENOR = 0

        CONTADOR = 0

        RESPUESTA = "s"

        RESPUESTA = "S"

        WHILE RESPUESTA = "S" OR RESPUESTA ="s"

        CONSOLE.WriteLine("INGRESE NOTA: ")

        NOTA = CONSOLE.ReadLine()

        IF NOTA < 60 THEN

            MENOR += 1 

        END IF 

        IF (NOTA>=60) THEN

            MAYOR += 1

        END IF 

        CONTADOR +=1

        CONSOLE.WRITELINE("DESEA CONTINUAR s / n: ")

        RESPUESTA = CONSOLE.ReadLine()

        END WHILE 

        CONSOLE.WRITELINE("TOTAL DE PROMOVIDOS {0}, TOTAL NO PROMOVIDOS {1}, TOTAL DE NOTAS {2}" ,MAYOR ,MENOR, CONTADOR)

    End Sub

End Module