(define quadratic1 '( (100 input "What is the value of A" a ) (110 input "What is the value of B" b ) (120 input "What is the value of C" c ) (130 let d = ((b * b) - (4.0 * (a * c))) ) (140 if (d < 0) then 230 ) (150 let i = 0 ) (160 let s = 1 ) (170 let s = ((s + (d / s)) / 2.0) ) (180 let i = (i + 1) ) (190 if (i < 10) then 170 ) (200 print "The 1st root is: " (((-1.0 * b) + s) / (2.0 * a)) ) (210 print "The 2nd root is: " (((-1.0 * b) - s) / (2.0 * a)) ) (220 end ) (230 print "Imaginary roots." ) (240 end )))