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.