TipoAbstrato Pilha {


	privado:
		inteiro tamanho = 20;
		inteiro topo = -1;
	publico:
		inteiro arranjo[tamanho];

	inteiro getTam(){
		retorna tamanho;
	}


	inteiro getTopo(){
		retorna topo;
	}


	booleano taVazio(){
		se(topo = -1){
		        retorna verdadeiro;
		}
		senão
		        retorna falso;
	}
		        procedimento push(inteiro a){


		                se( topo < tamanho) entao{
		topo = topo + 1;
		arranjo[topo] = a;
	}
	}
	inteiro pop(){
		inteiro x;
		se( topo > -1) entao{
			x = arranjo[topo];
			topo = topo - 1;
			retorne x;

		}
		senao{
			retorne nulo;
		}
	}
	inteiro top(){
		se(topo > -1 ){
				retorna arranjo[topo];
		}
		senao{
			retorna 0;
		}
	}
}




pacote “Pilha”;

programa{
	Pilha a;
	Pilha aux;
        a.push(1);
        a.push(2);
        a.push(3);

        enquanto ( a.taVazio == falso) faca {
                aux.push(a.pop);
        }
        a = aux;
}