#| BEGIN (Введите свое решение) |#
(define (make-rat n d)
  (let ((g (gcd n d)))
    (if (< (* n d) 0)
          (cons (/ (* (abs n) -1) g) (/ (abs d) g))
          (cons (/ (abs n) g) (/ (abs d) g)))))
#| END |#