program D2007_new_new;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows;

type
  TArr=array[ 0 .. 15 ] of integer;

const
  razmer= 13 ;

var
  Ar:TArr;
  Time1,Time2:integer;
  nomvar:integer;

function Test(var b:TArr):integer;
var
  m,min,obmen:integer;
  x,y,z:integer;
begin
  Result:= 0 ;
  repeat
    inc(Result);
    x:=b[razmer- 2 ];
    y:=b[razmer- 1 ];
    z:=b[razmer];

    b[razmer- 2 ]:=y;
    b[razmer- 1 ]:=x;
    inc(Result);

    b[razmer- 2 ]:=z;
    b[razmer]:=y;
    inc(Result);

    b[razmer- 2 ]:=x;
    b[razmer- 1 ]:=z;
    inc(Result);

    b[razmer- 2 ]:=y;
    b[razmer]:=x;
    inc(Result);

    b[razmer- 2 ]:=z;
    b[razmer- 1 ]:=y;
    inc(Result);

    obmen:=razmer- 2 ;
    repeat
      dec(obmen);
      min:=b[obmen];
    until min<b[obmen+ 1 ];
    if obmen= 0  then
      break;
    m:=razmer+ 1 ;
    repeat
      dec(m);
    until b[m]>min;
    b[obmen]:=b[m];
    b[m]:=min;
    if obmen<razmer- 1  then
      begin
        inc(obmen);
        m:=razmer;
        repeat
          min:=b[obmen];
          b[obmen]:=b[m];
          b[m]:=min;
          inc(obmen);
          dec(m);
        until obmen>m;
      end;
  until false;
end;

var
  i:integer;
begin
  //В нулевой ячейке массива должно быть записано число,
  //меньшее любого значимого элемента массива.
  //Это признак конца перестановок
  Ar[ 0 ]:= 0 ;
  for i:= 1  to  15  do
    Ar[i]:=i;
  Time1:=GetTickCount;
  nomvar:=Test(Ar);
  Time2:=GetTickCount;
  Writeln('Count: ',nomvar);
  Writeln('Time: ',Time2-Time1,'(ms)');
  Readln;
end.

    if obmen= 0  then
      break;

    if (razmer and  1 )= 0  then //четный размер
      begin
        if ((obmen shl  4 ) or min)=($ 10  or (razmer shr  1 )) then
          break;
      end
    else //нечетный размер
      begin
        if ((obmen shl  8 ) or (min shl  4 ) or b[ 1 ])=($ 200  or ((razmer shr  1 ) shl  4 ) or ((razmer shr  1 )+ 1 )) then
          break;
      end;

  nomvar:=Test(Ar);

  nomvar:= 2 *Test(Ar);

    if (razmer and  1 )= 0  then //четный размер
      begin
        if ((obmen shl  8 ) or min)=($ 100  or (razmer shr  1 )) then
          break;
      end
    else //нечетный размер
      begin
        if ((obmen shl  16 ) or (min shl  8 ) or b[ 1 ])=($ 20000  or ((razmer shr  1 ) shl  8 ) or ((razmer shr  1 )+ 1 )) then
          break;
      end;

for i:= 1  to razmer do
  write(b[i],' ');
writeln;
for i:=razmer downto  1  do
  write(b[i],' ');
writeln;