#| BEGIN (Введите свое решение) |#
(define (under-zero? interval)
  (and (<= (lower-bound interval) 0) (>= (upper-bound interval) 0))
  )

(define (div-interval x y)
  (if (under-zero? y)
      (error "division by zero")
      (mul-interval x
                    (make-interval (/ 1.0 (upper-bound y))
                                   (/ 1.0 (lower-bound y))))))
#| END |#