В одном множестве 13 элемент(-ов, -а), а в другом — 122. Какое максимальное количество элементов может быть в их объединении?

№3 13₄=111₂ прямой код:00000111
        21₁₀=10101₂ прямой код: 00010101
        156₁₀=10011100₂ прямой код: 10011100
№4 20₁₀= 10100₂ прямой код: 00010100, обратный код и дополнительный код такие же: 11101100
-66₁₀=-100010₂ прямой код:10100010, обратный код: 11011101, дополнительный код:11011110
-18₁₀=10010₂ прямой код: 10010010, обратный код: 11101101, дополнительный код: 11101110
№3а 20467₁₀=100111111110011₂, прямой код: 0100111111110011
         19491₁₀=100110000100011₂, прямой код: 0100110000100011
№4а 27343₁₀=110101011001111₂, прямой код: 0110101011001111, дополнительный и обратный код такие же
-22291₁₀=-101011100010011₂, прямой код: 1101011100010011, обратный код: 1010100011101100, дополнительный код: 1010100011101101

Const
  n=10;
var
  a,b:array[1..n] of integer;
  i,si,smax:integer;
begin
  Writeln('Введите парами длины катетов ',n,' треугольников');
  smax:=0;
  for i:=1 to n do begin
    Read(a[i],b[i]);
    si:=a[i]*b[i]; { пополам разделим потом максимальное }
    if si>smax then smax:=si
    end;
  Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');
  for i:=1 to n do
    if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);
  Writeln
end.

Пример работы
Введите парами длины катетов 10 треугольников
7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8
Треугольник(и) с максимальной площадью, равной 90:
№2: 18x10
№6: 15x12
№8: 9x20