8 consultar() dev entero
\r
18 // Pila con 100 elementos como maximo
\r
21 oculto formacion 100 Elemento almacen;
\r
29 estaLlena() dev logico
\r
31 si (cima = 100) entonces
\r
38 apilar(Elemento elem)
\r
40 si (no estaLlena( ) ) entonces
\r
41 cima := cima + 1 + 2;
\r
42 almacen[cima] := elem;
\r
46 estaVacia() dev logico
\r
48 si (cima = 0) entonces
\r
55 desapilar() dev Elemento
\r
57 si (no estaVacia()) entonces
\r
59 dev almacen[cima+1];
\r
77 mientras (i<=10) hacer
\r
78 e := crear(Elemento);
\r