Algoritmo BorrarUltimoElemento

Algoritmo BorrarUltimoElemento

Definir expresion, ultimoCaracter, penultimoCaracter Como Cadena
Definir longitudExpresion Como Entero

Escribir "Ingrese la expresion:"
Leer expresion

longitudExpresion <- Longitud(expresion)

Si longitudExpresion = 0 Entonces
	
	Escribir "Error: no hay elementos para eliminar."
	Escribir "La expresion ya se encuentra vacia."
	
SiNo
	
	ultimoCaracter <- Subcadena(expresion, longitudExpresion, longitudExpresion)
	
	Si longitudExpresion >= 2 Entonces
		
		penultimoCaracter <- Subcadena(expresion, longitudExpresion - 1, longitudExpresion - 1)
		
		Si ultimoCaracter = "0" Y penultimoCaracter = "1" Entonces
			
			expresion <- Subcadena(expresion, 1, longitudExpresion - 2)
			
		SiNo
			
			expresion <- Subcadena(expresion, 1, longitudExpresion - 1)
			
		FinSi
		
	SiNo
		
		expresion <- ""
		
	FinSi
	
	Escribir "Ultimo elemento eliminado correctamente."
	Escribir "Expresion actual: ", expresion
	
FinSi

FinAlgoritmo