1) Некоторые числа X и Y из десятичной системы счисления перевели в системы счисления с основаниями 16, 8. Часть символов при записи утеряна. Позиции утерянных символов обозначены *. Сравните числа 34*16 и 16**8. В ответе запишите знак или знак =.

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

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  for var j:=0 to m-1 do a[1,j]:=5; a.Println(4)
end.

Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 8
*** Исходный массив [6,8] ***
   9  -3 -27 -90  43 -54   0 -49
  -2  91 -12 -10 -21  19  52   5
  26  41  79  98  91 -50  87 -50
 -23 -24 -63  17 -59  75 -43 -62
 -27 -13  93   2 -58 -43 -22 -90
   5  94  90 -26  81  46   5 -12

   9  -3 -27 -90  43 -54   0 -49
   5   5   5   5   5   5   5   5
  26  41  79  98  91 -50  87 -50
 -23 -24 -63  17 -59  75 -43 -62
 -27 -13  93   2 -58 -43 -22 -90
   5  94  90 -26  81  46   5 -12

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

begin
  var a:=ArrRandom(ReadInteger('n='),1,9); a.Println;
  var d:=new dictionary<integer,integer>;
  foreach var e in a do d[e]:=d.Get(e)+1;
  var s:=d.Where(x->x.Value>1).Select(x->x.Key);
  if s.Count=0 then Writeln('Нет дублирующихся элементов')
  else begin
    Write('Дублирующиеся элементы: '); s.Println;
    Write('В порядке возрастания:  '); s.Sorted.Println
    end
end.

Пример
n= 20
6 8 7 3 8 6 4 9 9 3 6 1 6 6 9 7 2 5 9 9
Дублирующиеся элементы: 6 8 7 3 9
В порядке возрастания:  3 6 7 8 9