uses pilhas;
Valor, aux, i,rest : Integer;
p:pilha;
Begin
	init(p);
	Write('Informe o numero decimal: ');
	ReadLn(Valor);
	while valor>16 do
	Begin
		rest:=valor mod 16;
		valor:=valor div 16;
		push(p,rest);
	end;
	push(p,valor);
	write('conversao: ');
	while not isempty(p) do
	begin
		case top(p) of
			10:write('A');
			11:write('B');
			12:write('C');
			13:write('D');
			14:write('E');
			15:write('F');
		else
			write(top(p));
		end;
		pop(p);
	end;
end;