#| BEGIN (Введите свое решение) |#
;; (define (make-point x y) (cons x y))

(define (x-point x) (car x))

(define (y-point y) (cdr y))

(define (make-rectangle start-point width height)
  (let ((x (x-point start-point))
        (y (y-point start-point)))
    (cons (cons (+ x width) y)
          (cons x (+ y height)))))

(define (rectangle-width rectangle)
  (abs (- (x-point (car rectangle))
          (x-point (cdr rectangle)))))

(define (rectangle-height rectangle)
  (abs (- (y-point (cdr rectangle))
          (y-point (car rectangle)))))

(define (rectangle-square rectangle)
  (* (rectangle-width rectangle)
     (rectangle-height rectangle)))

(define (rectangle-perimeter rectangle)
  (* 2 (+ (rectangle-width rectangle)
          (rectangle-height rectangle))))
#| END |#