[elektro] pascal 2.

[Info]

> 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;

jabocs shr van pascalban nem >>