PROGRAM BRICKS;
VAR H:ARRAY [1..100] OF REAL;
      Q,Q1,Z,X:REAL;
           N,I,J:BYTE;
    F:TEXT;
BEGIN
ASSIGN (F,'BRICKS.IN');
RESET (F);
J:=0;  READ (F,N);
WHILE  N<>0   DO
  BEGIN
    J:=J+1;
    FOR I:=1 TO N DO
    READ (F,H[I]);
Q:=0;
Z:=0;
FOR I:=1 TO N DO Q:=Q+H[I];
Q1:=Q/N;
FOR I:=1 TO N DO BEGIN
                 X:=Q1-H[I];
                 IF X>=0 THEN Z:=Z+X;
                 END;
WRITELN('Набор #',J);
WRITELN('Минимальное количество перемещений - ', Z:1:0,'.');
WRITELN;
READ (F,N);
END;
CLOSE (F);
END.