Si Promedio Mínimo Es De 100 En La Producción Recibirá Incentivos

Module Module1
    Dim PL As Integer
    Dim PMa As Integer
    Dim PMi As Integer
    Dim PJ As Integer
    Dim PV As Integer
    Dim PS As Integer
    Dim PT As Integer
    Dim PP As Integer
    Dim MSG As Integer

    Sub Main()
        Console.WriteLine("Ingrese Produccion del Lunes")
        PL = Console.ReadLine()
        Console.WriteLine("Ingrese Produccion del Martes")
        PMa = Console.ReadLine()
        Console.WriteLine("Ingrese Produccion del Miercoles")
        PMi = Console.ReadLine()
        Console.WriteLine("Ingrese Produccion del Jueves")
        PJ = Console.ReadLine()
        Console.WriteLine("Ingrese Producccion del Viernes")
        PV = Console.ReadLine()
        Console.WriteLine("Ingrese Produccion del Sabado")
        PS = Console.ReadLine()
        PT = (PL + PMa + PMi + PJ + PV + PS)
        PP = PT / 6
        If (PP >= 100) Then
            Console.writeline("Recibira Incentivos")
            Console.ReadLine()
        Else
            Console.writeline("No Recibira Incentivos")
            Console.ReadLine()
        End If

    End Sub

End Module