{ очередь в трамвае }
var i,j,k,n,tmp: integer;
    qu: array of integer;
    priz: boolean;
    f: text;
begin
  assign (f,'C:\In.txt');
  reset (f);
  read (f,n);  { количество людей в очереди }
  setlength(qu,n+1);
  for i:=1 to n do read(f,qu[i]);  { pi - массив }
  close (f); 
{ вывод массива на экран }
  for i:=1 to n do write(qu[i],' ');
  writeln; 
{ сортировка по убыванию массива qu }  
  priz:=true;
  k:=0;
  j:=1;
  while (priz) do
  begin
    priz:=false;
    for i:=1 to n-1 do
    begin
      if qu[i]<qu[i+1] then
      begin
        if (i=j) then j:=j+1;
        tmp:=qu[i+1];
        qu[i+1]:=qu[i];
        qu[i]:=tmp;
        k:=k+1;
        priz:=true;
      end;
    end;
  end;
  writeln('номер в очереди = ',j,'  ',
         'количество перестановок = ',k);
  writeln('новая очередь ');
  for i:=1 to n do write(qu[i],' ');
 { запись в выходной файл }  
  assign (f,'C:\Out.txt');
  rewrite (f);
  writeln (f,j,' ',k);
  close (f);
end.