Imports System
 
Public Class Test
   Public Shared Sub Main() 
       	Dim nombre As String
    	Dim calif1 As Double
    	Dim calif2 As Double
    	Dim notaFinal As Double
    	Dim mensaje As String
 
       	nombre = Console.ReadLine
	calif1 = Console.ReadLine
	calif2 = Console.ReadLine
 
	notaFinal = (calif1 + calif2) / 2
 
	If (notaFinal >= 60) Then
        	mensaje = " Aprobo"
    	Else
        	mensaje = " Reprobo"
    	End If
        System.Console.Write(nombre)
	System.Console.Write(" ")
	System.Console.Write(notaFinal)
	System.Console.WriteLine(mensaje)
   End Sub
End Class
 

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CiAgIFB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKSAKICAgICAgIAlEaW0gbm9tYnJlIEFzIFN0cmluZwogICAgCURpbSBjYWxpZjEgQXMgRG91YmxlCiAgICAJRGltIGNhbGlmMiBBcyBEb3VibGUKICAgIAlEaW0gbm90YUZpbmFsIEFzIERvdWJsZQogICAgCURpbSBtZW5zYWplIEFzIFN0cmluZwoKICAgICAgIAlub21icmUgPSBDb25zb2xlLlJlYWRMaW5lCgljYWxpZjEgPSBDb25zb2xlLlJlYWRMaW5lCgljYWxpZjIgPSBDb25zb2xlLlJlYWRMaW5lCgkKCW5vdGFGaW5hbCA9IChjYWxpZjEgKyBjYWxpZjIpIC8gMgoJCglJZiAobm90YUZpbmFsID49IDYwKSBUaGVuCiAgICAgICAgCW1lbnNhamUgPSAiIEFwcm9ibyIKICAgIAlFbHNlCiAgICAgICAgCW1lbnNhamUgPSAiIFJlcHJvYm8iCiAgICAJRW5kIElmCiAgICAgICAgU3lzdGVtLkNvbnNvbGUuV3JpdGUobm9tYnJlKQoJU3lzdGVtLkNvbnNvbGUuV3JpdGUoIiAiKQoJU3lzdGVtLkNvbnNvbGUuV3JpdGUobm90YUZpbmFsKQoJU3lzdGVtLkNvbnNvbGUuV3JpdGVMaW5lKG1lbnNhamUpCiAgIEVuZCBTdWIKRW5kIENsYXNzCg==

UGVkcm8KNTYKNzA=

Pedro
56
70