PROGRAM PROBJ(INOBJ,OUTPUT);
LABEL 10;
VAR INOBJ:TEXT;
    I,NUM:INTEGER;
    HEXTAB:ARRAY[0..15] OF CHAR;
    HEX:ALFA8;
BEGIN
FOR I:= 0 TO 9 DO HEXTAB[I]:=CHR(I+48);
FOR I:=10 TO 15 DO HEXTAB[I]:=CHR(I+55);
RESET(INOBJ);
WHILE NOT EOF(INOBJ) DO BEGIN
  HEX:='00000000';
  FOR I:=1 TO 4 DO BEGIN
    NUM:=ORD(INOBJ^);
    HEX[I*2-1]:=HEXTAB[NUM DIV 16];
    HEX[I*2]:=HEXTAB[NUM MOD 16];
    GET(INOBJ);
    IF EOF(INOBJ) THEN GOTO 10;
  END;
10:
  FOR I:=1 TO 8 DO WRITE(HEX[I]);
  WRITELN;
END;
END.