começo
	Valor, aux, i,rest : Integer;
	p:pilha;
	escreve('Informe o numero decimal: ');
	le(Valor);
	enquanto valor>16 faça
	começo
		rest:=valor mod 16;
		valor:=valor div 16;
		push(p,rest);
	fim
	push(p,valor);
	escreve('conversao: ');
	enquanto escreve(p)==0 faça
	começo
		caso topo(p)
			10:escreve('A');
			11:escreve('B');
			12:escreve('C');
			13:escreve('D');
			14:escreve('E');
			15:escreve('F');
		senão
			escreve(topo(p));
		fim
		pop(p);
	fim
fim