'   Autor : Hernán Toro
'   Lenguaje : VB.Net
'   Descripcion : este programa calcula promedio de dos notas

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

	System.Console.Write("Entre nombre: ")
       	nombre = Console.ReadLine
	System.Console.Write("Entre nota 1: ")
	calif1 = Console.ReadLine
	System.Console.Write("Entre nota 2: ")
	calif2 = Console.ReadLine
	
	notaFinal = (calif1 + calif2) / 2
	
	If (notaFinal >= 60) Then
        	mensaje = " Aprobo"
    	Else
        	mensaje = " Reprobo"
    	End If
        	System.Console.WriteLine(nombre & " " & notaFinal & mensaje)
	'System.Console.Write(" ")
	'System.Console.Write(notaFinal)
	'System.Console.WriteLine(mensaje)
   End Sub
End Class