modulo pila
inst clase Elemento
{
   oculto entero e;
   consultar() dev entero
   {
      dev e;
   }
   modificar(entero n)
   {
      escribir(n);
      e:=n;
   }
}
//clase pila
inst clase Pila
{
   oculto formacion 100 Elemento almacen;
   oculto entero cima;
   iniciar()
   {
      cima := 0;
   }
   estaLlena() dev logico
   {
      si (cima = 100) entonces
            dev cierto;
      sino
            dev falso;
      finsi
   }
   apilar(Elemento elem)
   {
      si (no estaLlena()) entonces
            cima := cima + 1;
            almacen[cima] := elem;
      finsi
    }
    estaVacia() dev logico
    {
        si (cima = 0) entonces
               dev cierto;
        sino
               dev falso;
        finsi
    }
    desapilar() dev Elemento
    {
        si (no estaVacia()) entonces
        	cima := cima - 1;
        	dev almacen[cima+1];
        sino
               dev almacen[cima];
        finsi
    }
}
clase Programa
{
      inicio()
      {
         Elemento e;
         Pila p;
         entero i;
         p := crear(Pila);
         p.iniciar();
         i:=1;
         mientras (i<=10) hacer
             e := crear(Pila);
             e.modificar(i);
             p.apilar(e);
             p.algo();
             i:=i+1.0;
         finmientras
		}
      
 }