MyPasteTitle

(defun kvd (a b c) ( discr a b c )  ( cond
    (( > ( discr a b c ) 0 ) (korn a b c))
    (( = ( discr a b c ) 0 ) (korn2 a b) )
    ( T 0)
    )
 )
 (defun discr (a b c)
    (- (* b b) (* 4 a c))
 )

 (defun korn (a b c)
    (/(- ( * -1 b) (discr a b c)) (* 2 a))
    (/(+ ( * -1 b) (discr a b c)) (* 2 a))
 )

 (defun korn2 (a b)
    (/(* -1 b) (* 2 a))
 )

(print ( kvd 1 2 1))