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

(define (rectangle-square rect)
   (* (car (cdr rect))
      (cdr (cdr rect)))
  )

(define (rectangle-perimeter rect)
  (* (+ (car (cdr rect)) (cdr (cdr rect)))
     2
     )
  )

#| END |#