(defvar n (read)) 

(defvar s (loop repeat (1- n) 
                sum (read))) 

(princ (1- (ceiling (- 100 (multiple-value-bind (_ x) (ceiling s n) x)) n)))
(fresh-line)