[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s: String;
  i: Integer;

begin
  Writeln('Enter the packet in hex');
  Readln(s);
  i:=StrToInt('$'+s);
  Writeln('Integer='+IntToStr(i));
  Readln;
end.