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