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

(define (make-rectangle start-point l h)
  (cons start-point (make-point (+ (x-point start-point) h)
                                (+ (y-point start-point) l))))
(define (start x) (car x))
(define (end x) (cdr x))

(define (rectangle-square s) (* (- (x-point (start s))
                                   (x-point (end s)))
                                (- (y-point (start s))
                                   (y-point (end s)))))


(define (rectangle-perimeter s) (* (+ (abs (- (x-point (start s))
                                         (x-point (end s))))
                                      (abs (- (y-point (start s))
                                         (y-point (end s))))) 2))
#| END |#