{$codepage utf8} Var n:longint; p:^byte; Begin n:=$5689BCF1; p:=@n; Writeln('Direccion memoria byte'); Writeln(HexStr(longint(@p[0]),8),' ',HexStr(p[0],2)); Writeln(HexStr(longint(@p[1]),8),' ',HexStr(p[1],2)); Writeln(HexStr(longint(@p[2]),8),' ',HexStr(p[2],2)); Writeln(HexStr(longint(@p[3]),8),' ',HexStr(p[3],2)); End.