Шестнадцатеричное четырехзначное число заканчивается цифрой 9. Первую цифру
переставили в конец числа. Полученное число оказалось на 2EA4(индекс 16) меньше исходного.
Определить исходное число, записанное в шестнадцатеричной системе счисления.

Var a:array[1..100] of integer;
n,i,k,c:integer; 
begin
Randomize;
write('n = '); readln(n);
Writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(100);
 write(a[i]:6);
 end;
writeln;
 for k := 1 to n-1 do
    for i := n-1 downto k do
      if a[i] > a[i+1] then
        begin
         c:=a[i];
         a[i]:=a[i+1];
         a[i+1]:=c
        end;
Writeln('Отсортированный массив:');
for i:=1 to n do write(a[i]:6);
writeln;
end.

Пример:
n = 15
Исходный массив:
    10     0    59    85    98    71    72    55    29    50    54    27    34    56    73
Отсортированный массив:
     0    10    27    29    34    50    54    55    56    59    71    72    73    85    98

Procedure Sort(arr : array of integer);
var
  i, j, temp, len, min : integer;
begin
  len := length(arr);

  for j := 0 to len - 2 do
  begin
    min := j;
 
    for i := j + 1 to len - 1 do
      if arr[i] < arr[min] then
        min := i;

    if min > j then
    begin
      temp := arr[j];
      arr[j] := arr[min];
      arr[min] := temp;
    end;
  end;
end;

const
  N = 10; // Количество элементов массива
  Max = 100; // Максимальное число в массиве
var
  arr : array of integer;
  i : integer;
begin
  //Устанавливаем длину массива
  SetLength(arr, N);

  for i := 0 to N - 1 do
    arr[i] := random(Max);
 
  //Выводим исходный массив
  for i := 0 to N - 1 do
    write(arr[i], ' ');
  writeln();

  Sort(arr);

  //Выводим отсортированный массива
  for i := 0 to N - 1 do
    write(arr[i], ' ');
  writeln();
end.