3 importacion: modulo1, modulo2
\r
9 consultar() dev entero
\r
19 // Pila con 100 elementos como maximo
\r
22 oculto formacion 100 Elemento almacen;
\r
30 estaLlena() dev logico
\r
32 si (cima = 100) entonces
\r
39 apilar(Elemento elem)
\r
41 si (no estaLlena( ) ) entonces
\r
42 cima := cima + 1 + 2;
\r
43 almacen[cima] := elem;
\r
47 estaVacia() dev logico
\r
49 si (cima = 0) entonces
\r
56 desapilar() dev Elemento
\r
58 si (no estaVacia()) entonces
\r
60 dev almacen[cima+1];
\r
78 mientras (i<=10) hacer
\r
79 e := crear(Elemento);
\r
97 mientras (i<=10) hacer
\r
98 e := crear(Elemento);
\r