(define (SearchMiddle x1 y1 x2 y2 x3 y3) ;ПЯТАЯ ИЗ НОВЫЙ ЫЫЫЫ
   (define (Func z zx zy)
     (cons (/ (- zx) (* 2 z)) (/ zy (* 2 z))))
  (Func (- (* (- x1 x2) (- y3 y1)) (* (- y1 y2) (- x3 x1)))
        (+ (* (- y1 y2) (+ (* x3 x3) (* y3 y3))) (* (- y2 y3) (+ (* x1 x1) (* y1 y1))) (* (- y3 y1) (+ (* x2 x2) (* y2 y2))))
         (+ (* (- x1 x2) (+ (* x3 x3) (* y3 y3))) (* (- x2 x3) (+ (* x1 x1) (* y1 y1))) (* (- x3 x1) (+ (* x2 x2) (* y2 y2))))))
(define (Tri lst) ; ВТОРАЯ ИЗ НОВОЙ :))
  (define vr (car lst))
  (define (DelTr lst1 res)
    (if (empty? (cdr lst1)) res
        (DelTr (cdr lst1) (cons (list vr (car lst1) (cadr lst1)) res))))
  (DelTr (cdr lst) '()))