program testbst; uses bst,naturali; var t:searchtree; success:boolean; procedure createbst(var t:searchtree); {legge dei naturali dallo schermo e crea un albero che li contiene} var n:nat; begin writeln('Scrivi dei naturali e premi enter:'); while not eoln do begin n.legginat(input); t.insert(n,success) end; end; begin t.init; createbst(t); t.display; t.done end.