Даны вещественные числа a, b и c, причем a отлично от 0. Решить квадратное уравнение a•x2 + b•x + c = 0 или сообщить о том, что решений нет. Написать программу на компиляторе Бейсик!

INPUT "a="; a INPUT "b="; b INPUT "c="; c IF c = 0 THEN IF b = 0 THEN PRINT "x=0" ELSE x1 = 0: x2 = - b / a PRINT "x1="; x1, "x2="; x2 END IF ELSE IF b = 0 THEN x1 = - c / a: x2 = - x1 PRINT "x1="; x1, "x2="; x2 ELSE D = b ^ 2 - 4 * a * c IF D < 0 THEN PRINT "Нет действительных корней" ELSE IF D = 0 THEN x = - b / (2 * a) PRINT "x="; x ELSE D = SQR (D) x1 = (-b - D) / (2 * a) : x2 = (-b + D) / (2 * a) PRINT "x1="; x1, "x2="; x2 END IF END IF END IF END IF END