program Test;
uses HexUtil;

var
  S: string;

begin
  write('Entre el valor a convertir - '); readln(S);
  writeln('El valor entero de ', S, ' es: ', ParseHex(S));
  writeln('Convertido nuevamente a hex: ', HexStr(ParseHex(S)));
end.