3 importacion: modulo1, modulo2
\r
10 consultar() dev entero
\r
20 // Pila con 100 elementos como maximo
\r
23 oculto formacion 100 Elemento almacen;
\r
31 estaLlena() dev logico
\r
33 si (cima = 100) entonces
\r
40 apilar(Elemento elem)
\r
42 si (no estaLlena( ) ) entonces
\r
43 cima := cima + 1 + 2;
\r
44 almacen[cima] := elem;
\r
48 estaVacia() dev logico
\r
50 si (cima = 0) entonces
\r
57 desapilar() dev Elemento
\r
59 si (no estaVacia()) entonces
\r
61 dev almacen[cima+1];
\r
79 mientras (i<=10) hacer
\r
80 e := crear(Elemento);
\r
98 mientras (i<=10) hacer
\r
99 e := crear(Elemento);
\r