Algoritmo palindromos
	Definir a,b,palindromo Como Entero
	Definir palabra como caracter
	Escribir "Escribe una palabra"
	leer palabra	
	b = Longitud(palabra)	
	a = 1
	palindromo = 0
	Mientras a < b Hacer
		si subcadena(palabra,a,a) <> Subcadena(palabra,b,b) Entonces
			palindromo = palindromo + 1
		FinSi
		a = a + 1
		b = b - 1
	FinMientras
	
	si palindromo == 0 Entonces
		Escribir "La palabra ",palabra," es palindromo"
	SiNo
		Escribir "La palabra ",palabra," no es palindromo"
	FinSi	
FinAlgoritmo