(define ans 0)
(define n (read))
(let loop((i n))
    (set! ans (+ ans (read)))
   (if (> i 1) (loop (- i 1))))
(use slib)
(require 'printf)
(printf "%5,2f" ans)
(newline)