var
   f : text;
   yy,xx : longint;
   nn, i, cc, n : integer;
   s : string;
   x : array [1..100] of integer;


begin
  assign(f, 'bricks.in');
  reset(f);
  readln(f,n);
  nn := 0;
  while  n<>0 do
     begin
        readln(f,s);
        for i:=1 to n-1 do
           begin
              val(copy(s,1,pos(' ',s)-1),x[i],cc);
              delete(s,1,pos(' ',s));
           end;
        val(s,x[n],cc);
        yy:=0;
        xx := 0;
        for i:=1  to n do
           xx:=xx+x[i];
        xx:=xx div n;
        for i:=1 to n do
           if x[i]>xx
              then
                 yy:=yy+x[i]-xx;

        inc(nn);
        writeln('Набор #',nn);
        readln(f,n);
        if n<>0 then
           begin
              writeln('Минимальное количество перемещений - ',yy,'.');
              writeln;
           end
        else
           write('Минимальное количество перемещений - ',yy,'.');
     end;

  close(f);
end.