Puntuación Final de Partidos (Ganados,Empatados y Perdidos)

Elaboraremos un algoritmo que nos permita ingresar el número de partidos ganados, perdidos y empatados, en el torneo de apertura Universitaria de Deportes, se debe mostrar su puntaje total teniendo muy en cuenta que en cada partido ganado obtendrá 3 puntos, en el partido empatado 1 punto y en el partido pedido 0.

Identificadores: Puntaje Total (PT), Número de Partidos Ganados (PG), Partidos Empatados (PE), Partidos Perdidos (PP), Puntaje de Partidos Ganados (PPG), Puntaje de Partidos Empatados (PPE),

Operadores de pseudocodigo son los siguientes:

+ Suma
- Resta
* Multiplicación
/ División
^ Potencia 

Module Module1
    Dim PG As Integer
    Dim PE As Integer
    Dim PP As Integer
    Dim PPG As Integer
    Dim PPE As Integer
    Dim PT As Integer

    Sub Main()
        Console.WriteLine(" Ing Partidos Ganados ")
        PG = Console.ReadLine()
        Console.WriteLine(" Ing Partidos Empatados")
        PE = Console.ReadLine()
        Console.WriteLine(" Ing Partidos Perdidos")
        PP = Console.ReadLine()
        PPG = PG * 3
        PPE = PE * 1
        PT = PPG + PPE
        Console.WriteLine(" Puntaje Total {0}", PT)
        Console.ReadLine()


    End Sub

End Module