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