with cola;
use cola;
with Ada.Text_IO;
use Ada.Text_IO;
procedure rel4ej1 is
 --Se crean las variables el para el elemento a introducir y aux para sacar el entero del elemento
   El:Elemento;
   aux:Integer;
begin
   --LLenamos con los numero del 1 al 10 los elementos de la cola
   for i in 1..10 loop
      El:=Elemento(i);
      Poner(El);
   end loop;
   Put_Line("Cola llena");
   --Se recorre la cola hasta el que booleano vacia se cambie a true y el valor entero de los
   --elementos eliminados se guarda en aux y se muestran por pantalla
   while Vacia=false loop
      Quitar(Elemento(aux));
      Put(Integer'Image(aux));
      if Vacia=false then
         Put(" ");
      else New_Line;
         Put_line("Cola vacia");
      end if;
   end loop;
end rel4ej1;