Минимальное количество перемещений - PascalABC.NET - Ответ 8380937

type
  aType = array [1..105] of Integer;
  
var
  v : array [1..10000] of record
    p, m1, m2 : Integer;
  end;
  n, count : Integer;
  a, r : aType;
 
procedure m(p : Integer);
begin
  if p = 0 then
    for var i := 1 to n do
      a[i] := i
  else
    begin
      count += 1;
      m(v[p].p);
      Swap(a[v[p].m1], a[v[p].m2]);
    end;
end;
 
function compare(a, r : aType);
begin
  Result := False;
  for var i := 1 to n do
    if a[i] <> r[i] then
      Exit;
  Result := True;
end;
 
begin
  reset(input, 'input.txt');
  n := readlninteger();
  for var i := 1 to n do
    r[i] := readinteger();
  
  var p := -1;
  var c := 0;
  repeat
    count := 0;
    p += 1;
    m(p);
    for var m1 := 1 to n-1 do
      for var m2 := m1+1 to n do
        begin
          c += 1;
          v[c].p := p;
          v[c].m1 := m1;
          v[c].m2 := m2;
        end;
  until compare(a, r);
  
  rewrite(output, 'output.txt');
  writeln(count);
end.