{ команда МГТУ; задача #3 }
var
n,i,sum,aver,num,nabor:integer;
h:array[1..100] of integer;
f:text;

begin
assign(f,'bricks.in');
reset(f);
readln(f,n);
nabor:=0;
while n>0 do
begin
  sum:=0;
  num:=0;
  nabor:=nabor+1;
  for i:=1 to n-1 do
    read(f,h[i]);

  readln(f,h[i+1]);
  for i:=1 to n do
    sum:=sum+h[i];
  aver:=sum div n;
  for i:=1 to n do
    if h[i]>aver then num:=num+(h[i]-aver);

  writeln('Набор #',nabor);
  writeln('Минимальное количество перемещений - ', num,'.');
  WRITELN;
  readln(f,n);
  IF N=0 THEN BREAK;
end;
close(f);
end.