with Ada.Text_IO;             use Ada.Text_IO; 
with Ada.Integer_Text_IO;     use Ada.Integer_Text_IO;


package listes is
type Element ;
type Liste is access Element ;
type Element is record
Info : Natural ;
Suiv : Liste ;
end record ;
--Ajout d’un élément en fin de liste
procedure Ajouter_Fin(L : in out Liste; E : in Natural) ;
--Donner le nombre d’éléments d’une liste (algorithme itératif et récursif)
function Nombre_Elements(L : in Liste) return Natural;
--Afficher la liste
procedure Afficher(L : in Liste) ;

end listes;