Puntuacion Final con Respuestas Correctas, Incorrectas y en Blanco

Deseamos solicitar el número de respuestas Correctas, Incorrectas y en Blanco, mostrando su puntaje final considerando que por cada respuesta correcta tendrá 4 puntos, respuestas incorrectas tendrá -1 y respuestas en blanco tendrá una calificación de 0.

En Pseudocódigo existe una regla donde solo se usan los identificadores definidos en la parte de datos, ya que si no es definido en el proceso cuando programemos este notara un error. !!! Es muy importante aprender a definir todos los identificadores que se usan para resolver algoritmos !!! .

Identificadores: Puntaje Final (PF), Número de Respuestas Correctas (RC), Número de Respuestas Incorrectas (RI), Número de Respuestas en Blanco (RB), Puntaje de Repuestas Correctas (PRC), Puntaje de Respuestas Incorrectas (PRI)

Module Module1
    Dim RC As Integer
    Dim RI As Integer
    Dim Rb As Integer
    Dim PRC As Integer
    Dim PRI As Integer
    Dim PF As Integer

    Sub Main()

        Console.WriteLine(" Ing Respuestas Correctas ")
        RC = Console.ReadLine()
        Console.WriteLine(" Ing Respuestas Incorrectas ")
        RI = Console.ReadLine()
        Console.WriteLine(" Ing Respuestas en Blanco ")
        Rb = Console.ReadLine()
        PRC = RC * 4
        PRI = RI * -1
        PF = PRC + PRI
        Console.WriteLine(" Puntaje Final {0}", PF)
        Console.ReadLine()

    End Sub

End Module