18 oculto formacion 100 Elemento almacen;
24 estaLlena() dev logico
26 si (cima = 100) entonces
34 si (no estaLlena()) entonces
36 almacen[cima] := elem;
39 estaVacia() dev logico
41 si (cima = 0) entonces
47 desapilar() dev Elemento
49 si (no estaVacia()) entonces
67 mientras (i<=10) hacer