[elektro] pascal 2.

[Info]

Szia !

function dechex(fpos:longint): string ;
const
 hx : array [0..15] of char = '0123456789ABCDEF' ;
begin
result := hx[fpos >> 28] +
          hx[(fpos >> 24) and 15] +
          hx[(fpos >> 20) and 15] +
          hx[(fpos >> 16) and 15] +
          hx[(fpos >> 12) and 15] +
          hx[(fpos >> 8) and 15] +
          hx[(fpos >> 4) and 15] +
          hx[fpos and 15];
end;