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.