(defun kwadrat (a b c)
    (setq delta (- (* b b) (* 4 a c)))
    (setq delta (sqrt delta))
    (cond
        (
             (> delta 0)
             (setq x1 (/ (- (- b) delta) (* 2 a)))
             (setq x2 (/ (+ (- b) delta) (* 2 a)))
             (print delta)
             (print x1)
             (print x2)
        )
        (
             (= delta 0)
             (setq x1 (/ (- b) (* 2 a)))
             (print delta)
             (print x1)
        )
        (
             (< delta 0)
             (print delta)
             (print "Delta < od 0, brak miejsc zerowych")
        )
        (
             t
             nil
        )
    )
    )
(kwadrat 4 8 4)