. (1 2 3)  (4 5 6)
1           .   (2 3)  (4 5 6)
1 2         .     (3)  (4 5 6)
1 2 3 4 5 6

            . (1 3 5)  (2 4 6)
1           .   (3 5)  (2 4 6)
1 2         .   (3 5)    (4 6)
1 2 3       .     (5)    (4 6)
1 2 3 4     .     (5)      (6)
1 2 3 4 5 6

type
  name = 'a'..'f';
  value = 1..6;
  element = record
              n:name;
              v:value;
            end;
  elements = array [value] of element;

procedure copy(var dst:element; const src:element)
begin
  dst.n := src.n;
  dst.v := src.v;
end;

function compare(const x:element; const y:element): integer
begin
  compare := x.v - y.v;
end;

procedure swap(var x:element; var y:element)
var z:element;
begin
  copy(z,x); copy(x,y); copy(y,z);
end;

procedure order3(var el:elements; i:value)
begin
  if compare(el[o], el[o+1]) > 0
  then swap(el[o], el[o+1]);

  if compare(el[o+1], el[o+2]) > 0
  then begin
    swap(el[o+1], el[o+2]);

    if compare(el[o], el[o+1]) > 0
    then swap(el[o], el[o+1]);
  end;
end;

procedure order6(var el:elements)
var
  res:elements;
  i,j,k:value;
begin
  order3(el, 1); { a,b,c }
  order3(el, 4); { d,e,f }

  { слияние }
  i := 1; j := 4; k := 1;
  while (i<3) and (j<6) do
  begin
    if compare(el[i], el[j]) < 0
    then begin copy(res[k], el[i]); i:=i+1; end;
    then begin copy(res[k], el[j]); j:=j+1; end;
    k := k+1;
  end;
  { допишем хвосты }
  while i<3 do begin copy(res[k], el[i]); i:=i+1; k:=k+1; end;
  while j<6 do begin copy(res[k], el[j]); j:=j+1; k:=k+1; end;

  { вернем результат в исходный массив }
  for i:=1 to 6 do copy(el[i], res[i]);
end;

                   a1 ? b1
                   </   \>
                   /     \
                  /       \
                 /         \
          a2 ? b2           a2 ? b2
          </  \>            </   \>
          /  a1b1b2a2  b1a1a2b2   \
       a2 ? b1                  a1 ? b2
       </   \>                  </   \>
a1a2b1b2     a1b1a2b2    b1a1b2a2     b1b2a1a2

К>Ага: за 5 сравнений проверить abcdef==123456

              360 (одинаковые не не пишем)
              180                      
               90                      
               45                      
        22             23              
     11            11        12
   5    6        5    6         6
 2   3    3    2   3    3    3    3
 1  2 1  2 1   1  2 1  2 1  2 1  2 1

a1 <= a2 <= a3 и b1 <= a1, b2 <= a2, b3 <= a3

a+b ? c+d
a+c ? b+d
a+d ? b+c

a+b < c+d
a+c < b+d
a+d < b+c

a < c; a < b; a < d; a < b+c+d;

abcd; abdc; acbd; acdb; adbc; adcb;

К>>Ага: за 5 сравнений проверить abcdef==123456

M>если все сравнения прошли, то последнее можно не проверять

if(a<b)
  if(b<c)
    if(c<d)
      if(d<e)
        if(e<f)
          cout << "abcdef"; // вот оно
        else
          cout << "abcdfe"; // ну, это тоже понятно
      else
         // а вот здесь придется попариться.

M>              360 (одинаковые не не пишем)
M>              180                      
M>               90                      
M>               45                      
M>        22             23              
M>     11            11        12
M>   5    6        5    6         6
M> 2   3    3    2   3    3    3    3
M> 1  2 1  2 1   1  2 1  2 1  2 1  2 1
M>