program usaliste;
{programma che usa la unit liste}

uses naturali,liste;

 var l:lista;n:nat;i:positivo;success:boolean;


 begin
   l.init;
   l.readlist;
   writeln('La lista e'' la seguente:');
   l.displaylist;
   writeln('Ha ',l.getcount,' elementi.');
   writeln;

   writeln('Dammi un numero positivo da inserire nella lista: ');
   n.legginat(input);
   l.insert(n,success);
   writeln('Ora la lista e'' la seguente:');
   l.displaylist;
   writeln('Ha ', l.getcount,' elementi.');
   writeln;

   writeln('Dammi un numero positivo da cercare nella lista: ');
   n.legginat(input);
   l.search(n,success);
   if success then writeln('L''ho trovato!')
              else writeln('Non l''ho trovato!');

   writeln('Dammi un numero positivo da cancellare dalla lista: ');
   n.legginat(input);
   l.delete(n,success);
   if success then begin
                   writeln('L''ho cancellato! Ora la lista e'' la seguente: ');
                   l.displaylist;
                   writeln('Ha ',l.getcount,' elementi.')
                   end
              else writeln('Non l''ho trovato! Percio'' non ho cancellato niente.');

   end.