Encabezados TADs

{Listas}
    {Constructoras generadoras}
        PROCEDURE CrearVacia(VAR l : TLista);
        PROCEDURE Construir(VAR l : TLista; e : TElemento);
    {Constructoras no generadoras}
        PROCEDURE Concatenar(VAR l : TLista; r : TLista);
        PROCEDURE BorrarElemento(VAR l : TLista; e : TElemento);
        PROCEDURE InsertarFinal(VAR l : TLista; e : TElemento);
    {Observadoras selectoras}
        PROCEDURE Primero(l : TLista; VAR e : TElemento);
        PROCEDURE Resto(l : TLista; VAR r : TLista);
    {Observadoras no selectoras}
        FUNCTION EsVacia(l : TLista):boolean;
        FUNCTION Longitud(l : TLista):integer;
        PROCEDURE Ultimo(l : TLista; VAR e : TElemento);
        FUNCTION Pertenece(l : TLista; e : TElemento):boolean;
{Pilas}
    {Constructoras generadoras}
        PROCEDURE CrearPilaVacia(VAR p : TPila);
        PROCEDURE Apilar(VAR p : TPila; e : TElemento);
    {Constructoras no generadoras}
        PROCEDURE Desapilar(VAR p : TPila);
        PROCEDURE Copiar(VAR p : TPila; q : TPila);
        PROCEDURE DestruirPila(VAR p : TPila);
    {Observadoras selectoras}
        PROCEDURE Cima(VAR p : TPila; VAR e : TElemento);
    {Observadoras no selectoras}
        FUNCTION EsPilaVacia(p : TPila):boolean;
{Colas. PENDIENTES DE VERIFICAR}
    {Constructoras generadoras}
        PROCEDURE CrearColaVacia(VAR c : TCola);
        PROCEDURE Encolar(VAR c : TCola; e : TElemento);
    {Constructoras no generadoras}
        PROCEDURE CopiarCola(c : TCola; VAR d : TCola);
    {Observadoras selectoras}
        PROCEDURE PrimeroCola(c : TCola; VAR e : TElemento);
        PROCEDURE Desencolar(VAR c : TCola);
    {Observadoras no selectoras}
        FUNCTION EsColaVacia(c : TCola):boolean;
        FUNCTION IgualCola(c, d: TCola):boolean;