program kubik;
var
   f  : text;
   str: string;
   st : array[1..100] of string;
   min,q,i,k,n,sum,cod:integer;
   s  : array[1..100] of integer;
   ch : real;
begin
   assign(f,'bricks.in');
   reset(f);
   readln(f,n);
   repeat
   inc(q);
   readln(f,str);
    for i:=1 to length(str) do
      if str[i]=' ' then inc(k);
      k:=k+1;

      for i:=1 to k-1 do begin
         st[i]:=copy(str,1,pos(' ',str)-1);

         delete(str,1,pos(' ',str));
         val(st[i],s[i],cod);
         sum:=Sum+s[i]
      ;

     end;
     val(str,s[k],cod);
     sum:=sum+s[k];

        ch:=sum/n;

      for i:=1 to k do
       while ch<s[i] do begin
           dec(s[i]);
           inc(min);
        end;
        readln(f,n);
        writeln('Набор #', q);

        writeln('Минимальное количество перемещений - ',min,'.');
        sum:=0;
        writeln;

        k:=0;
        min:=0;
   until n=0;

end.