SLE_Practica45_PilaEstatica

var
    pila: vector [5] numerico
    tope, elemento: numerico
     i: numerico

inicio
    tope = 0
    cls()

    // Insertar 5 elementos en la pila
    desde i=1 hasta 5 {
        imprimir("Introduce el elemento ", i, ": ")
        leer(elemento)
        si (tope < 5) {
            tope = tope + 1
            pila[tope] = elemento
         sino
            imprimir("La pila está llena.")
        }
    }

    imprimir ("\n\n")

    // Mostrar y eliminar los elementos de la pila
    mientras (tope > 0) {
        imprimir("\nElemento eliminado: ", pila[tope])
        tope = tope - 1
    }
fin