(setq d1 40)
(setq d2 60)
(setq d3 16)
(setq l1 90)
(setq l2 65)
(setq l3 25)
(setq n 5)

(setq p0 (getpoint "\nWskazac punkt bazowy"))
(setq p1 (list (car p0) (+ (cadr p0) (-(/ d2 2) n) ) ))
    (princ p1)
(setq p2 (list (+ (car p0) n) (+ (cadr p0) (/ d2 2) ) ))
    (princ p2)
(setq p3 (list (- l1 l2) (cadr p3) ))
    (princ p3)
(setq p4 (list (car p3) (+ (cadr p0) (/ d2 2) ) ))
    (princ p4)
(setq p5 (list (+ (car p0) (- l1 n)) (cadr p4) ))
    (princ p5)
(setq p6 (list l1 (- (cadr p5) n) ))
    (princ p6)
(setq p7 (list l1 (cadr p0) ))
    (princ p7)
(setq p8 (list (car p6) (- (cadr p0) (- (/ d1 2) n)) ))
    (princ p8)
(setq p9 (list (car p5) (- (cadr p0) (/ d1 2)) ))
    (princ p9)
(setq p10 (list (car p4) (cadr p9) ))
    (princ p10)
(setq p11 (list (car p3) (- (cadr p3) d2)))
    (princ p11)
;(setq p12 (list (car p2) (- (cadr p2) d2)))
;(setq p13 (list (- (car p12) n) (+ (cadr p12) n)))
;(setq p14 (list (- (car p7) 13) (cadr p7)))