Untitled

Algoritmo Ejercicio7
	Definir frase Como Caracter
	
	Escribir "Ingresar una palabra o frase:"
	Leer frase
	
	frase <- Mayusculas(frase)
	
	Si Subcadena(frase, 0, 0) = Subcadena(frase, Longitud(frase) - 1, Longitud(frase) - 1)
		Escribir "CORRECTO"
	SiNo
		Escribir "INCORRECTO"
	FinSi
FinAlgoritmo