Program Testa_Pilha;

{$I pilhaest.pas} 

Var
  P1,P2:TPilha;
  Dado:TPilha_Dado;
Begin
  Pilha_inicializa(P1);
  Pilha_inicializa(P2);

  IF not ( Pilha_insere(P1,10) )  
  THEN Writeln('Erro: Estouro de pilha!');
  IF not ( Pilha_insere(P1,20) )
  THEN Writeln('Erro: Estouro de pilha!');
  IF not ( Pilha_insere(P1,30) )
  THEN Writeln('Erro: Estouro de pilha!');

  Writeln('Pilha P1:');
  Pilha_exibe(P1);
  Pilha_retira(P1,Dado);
  Pilha_insere(P2,Dado);
  Pilha_retira(P1,Dado);
  Pilha_insere(P2,Dado);
  Pilha_retira(P1,Dado);
  Pilha_insere(P2,Dado);

  Writeln('Pilha P2:');
  Pilha_exibe(P2);

End.