(use gauche.collection)
(use srfi-8)
(letrec* ((a (string->number (read-line)))
          (n (map string->number (string-split (read-line) " ")))
          (d (lambda (n a)
                (letrec ((d1 (lambda (n1 n)
                                     (if (= (length n) 1) (list (- (car n) n1))
                                                   (cons (- (car n) n1) (d1 n1 (cdr n)))))))
                        (if (= (length n) 1) a
                                            (d (cdr n) (append! a (d1 (car n) (cdr n))))))))
          (r (d n '())))
         (receive (min max) (find-min&max r)
                        (begin
                          (print min)
                          (print max))))