uses Windows, SysUtils;


function d2any (v, pwr: Integer): String;
const
     tab: string = '0123456789ABCDEFGHIIJKLMNOPQRSTUVWXYZ';

var i: Integer;
begin
 result := '';
 // right-to-left scan
 while (v > 0) do
  begin
   i := v mod pwr;
   Assert (i < Length (tab), 'large pwr!');
   result := tab[i + 1] + result; // for PASCAL strings using index from 1 to Length(s)
   v := v div pwr;
  end;
 if Result = '' then result := '0';
end;

function b2hex (bs: String): String;

const
   tab: string = '0123456789ABCDEF';

var
   n: Integer;
   v: byte;
begin
 result := '';
 while Length (bs) < 4 do bs := '0' + bs; // complete
 n := 1; // WARN: pascal strings
 // left-to-right scan
 while (n < Length (bs)) do
  begin

   v :=      ( Byte ( bs [n + 3] ) - $30 );
   v := v + ( Byte ( bs [n + 2] ) - $30 ) shl 1;  // v += ( bs [n + 2]  - 0x30 ) << 1;  // C-style expression
   v := v + ( Byte ( bs [n + 1] ) - $30 ) shl 2;
   v := v + ( Byte ( bs [n + 0] ) - $30 ) shl 3;

   result := result + tab [v + 1];

   Inc (n, 4);

  end;
 if result = '' then result := '0';
end;


begin
 WriteLn ( ' 1 000 000 000 = 0x' + d2any (1000000000, 16) + ', binary = ' + d2any (1000000000, 2));
 WriteLn ( ' 10101010 = 0x' + b2hex ( '10101010' ) );
 ReadLn;
end.