Algoritmo de pilha codificado em Pascal.