Program Testa_Rotinas_de_Arvore_Binaria_Ordenada;  {ABO}

{$I ABO.PAS }

Var
  Raiz:Ptr_ArvBin_Nodo;
Begin
  ArvBin_Inicializa(Raiz);
  ArvBin_Insere_Ordenado(Raiz,10);
  ArvBin_Insere_Ordenado(Raiz,7);
  ArvBin_Insere_Ordenado(Raiz,20);
  ArvBin_Insere_Ordenado(Raiz,15);
  ArvBin_Insere_Ordenado(Raiz,23);
  Writeln('Arvore em modo Infixado:');
  ArvBin_Exibe_Infixado(Raiz);
  writeln;
  Writeln('Arvore em modo Prefixado:');
  ArvBin_Exibe_Prefixado(Raiz);
  writeln;
  Writeln('Arvore em modo Posfixado:');
  ArvBin_Exibe_Posfixado(Raiz);
  writeln;
  write('>> Pressione ENTER para terminar...');
  readln;
End.