program alb1; uses succbst,naturali; var t:searchtree; success:boolean; x:nat; int,int1:positivo; 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; writeln; writeln('Dammi un naturale:'); readln(int); t.succ(int,int1); t.done end.