PILAS. Procedimientos para meter y sacar un elemento de
       una pila.

Notas: 
p : variable puntero que contiene la posición del 
elemento cima de la pila. p=NULL indica pila vacía
pila : arreglo lineal que contiene a la pila
n : máximo número de elementos que puede contener 
la pila

// Mete un elemento en la pila
ADD(pila, n, p, item)
  if p=n then
    call PILA_LLENA
  end if

  p = p + 1
  pila[p] = item
end ADD

// Saca un elemento de la pila y lo asigna a 'item'
DEL(pila, n, item)
  if p=NULL then
    call PILA_VACIA
  endif

  item = pila[p]
  p = p - 1
end DEL