CLS
OPEN "bricks.in" FOR INPUT AS #1
DO
 INPUT #1, n
 num = num + 1
 IF n = 0 THEN EXIT DO
 DIM h(n)
 FOR i = 1 TO n
 INPUT #1, h(i)
 c = h(i) + c
 NEXT
 h1 = c / n
 FOR i = 1 TO n
 b = h(i) - h1
 IF b > 0 THEN k = k + b
 NEXT
 PRINT "Набор #"; LTRIM$(STR$(num))
 PRINT "Минимальное количество перемещений - "; LTRIM$(STR$(k)); "."
 PRINT
 ERASE h
 c = 0: k = 0: b = 0: h1 = 0
LOOP

END