Algoritmo detarea
	Definir h Como Entero
	Definir hora,h2,m2,mensaje Como Caracter
	Escribir "Ingresa una hora"
	leer hora
	si Longitud(hora) == 5 Entonces
		h = ConvertirANumero(Subcadena(hora,0,1))
		m2 = Subcadena(hora,3,4)
		si h > 23 Entonces
			Escribir "La hora es incorrecta"
		SiNo
			si h > 11 Entonces
				mensaje = "PM"
			SiNo
				mensaje = "AM"
			FinSi
			si h > 12 Entonces
				h = h - 12
			FinSi
			h2 = ConvertirATexto(h)
			Escribir h2+":"+m2+" "+mensaje
		FinSi
	SiNo
		Escribir "La hora es incorrecta"
	FinSi
FinAlgoritmo