Imports System

'Realizado Por: Santiago Bosarreyes         

Public Module Module1

    Public Sub Main()

        DIM NOTA, MAYOR, MENOR, CONTADOR AS INTEGER

        DIM RESPUESTA AS STRING

        CONTADOR = 0 

        MAYOR = 0

        RESPUESTA ="s"

        RESPUESTA ="S"

        MENOR = 0

        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("PERSONAS PROMOVIDAS: " &MAYOR)

        'Console.WriteLine("PERSONAS NO PROMOVIDAS: " &MENOR)

        'Console.WriteLine("TOTAL DE PERSONAS: " &CONTADOR)

        Console.WriteLine("PERSONAS PROMOVIDAS {0} NO PRMOVIDAS {1} TOTAL DE PERSONAS {2}" ,MAYOR , MENOR, CONTADOR)

    End Sub

End Module