15 // Pila con 100 elementos como maximo
18 oculto formacion 100 Elemento almacen;
25 estaLlena() dev logico
27 si (cima = 100.1) entonces // ERROR
33 apilar(Elemento elem, entero i)
35 si (no estaLlena()) entonces
37 almacen[cima] := elem;
41 estaVacia() dev logico
43 si (cima = 0) entonces
49 desapilar() dev Elemento
51 si (no estaVacia(1)) entonces // ERROR
52 cima := cima - realaentero(1.0);
53 dev almacen[cima+ realaentero(1)]; // ERROR
73 mientras (i < 10) hacer
74 e := crear(Pila); // ERROR