modulo pila inst clase Elemento { oculto entero e; consultar() dev entero { dev e; } modificar(entero n) { escribir(n); e:=n; } } //clase pila inst clase Pila { oculto formacion 100 Elemento almacen; oculto entero cima; iniciar() { cima := 0; } estaLlena() dev logico { si (cima = 100) entonces dev cierto; sino dev falso; finsi } apilar(Elemento elem) { si (no estaLlena()) entonces cima := cima + 1; almacen[cima] := elem; finsi } estaVacia() dev logico { si (cima = 0) entonces dev cierto; sino dev falso; finsi } desapilar() dev Elemento { si (no estaVacia()) entonces cima := cima - 1; dev almacen[cima+1]; sino dev almacen[cima]; finsi } } clase Programa { inicio() { Elemento e; Pila p; entero i; p := crear(Pila); p.iniciar(); i:=1; mientras (i<=10) hacer e := crear(Pila); e.modificar(i); p.apilar(e); p.algo(); i:=i+1.0; finmientras } }