Вычислите значение разности двух чисел 573(160) - 573 (8). результат представьте в виде шестнадцатеричного числа.
"то, что в скобочках это вид числа"

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s1:=SeqRandom(ReadInteger('n1='),-50,50);
  var s2:=SeqRandom(ReadInteger('n2='),-50,50);
  var p:=ReadInteger('0-по неубыванию, иное- по невозрастанию:');
  var q1:=new Queue<integer>;
  foreach var m in s1 do q1.Enqueue(m);
  Write('Очередь 1: ',q1); Writeln;
  var q2:=new Queue<integer>;
  foreach var m in s2 do q2.Enqueue(m);
  Write('Очередь 2: ',q2); Writeln;
  // очереди сформированы
  var q:=new Queue<integer>;
  var a:=(q1.ToArray+q2.ToArray);
  var s:sequence of integer;
  if p=0 then s:=a.OrderBy(i->i)
  else s:=a.OrderByDescending(i->i).ToArray;
  foreach var m in s do q.Enqueue(m);
  Write('Очередь-результат: ',q); Writeln;
end.

Пример
n1= 10
n2= 7
0-по неубыванию, иное- по невозрастанию: 1
Очередь 1: [-26,6,26,-48,-21,-29,27,-39,5,-40]
Очередь 2: [50,36,37,46,18,41,-39]
Очередь-результат: [50,46,41,37,36,27,26,18,6,5,-21,-26,-29,-39,-39,-40,-48]

Uses graphABC;
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);

setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);

line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);

line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);

line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);

line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);

end.
Эта