(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((n (read))
         (a (make-array n :element-type 'integer)))
    (dotimes (i n) (setf (aref a i) (read)))
    (let ((s (reduce #'+ a)))
      (dotimes (i n)
        (princ (floor (+ (* 100 n) (* n (aref a i)) (- s)) (* 2 n)))
        (terpri)))))

(main)