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.