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

INPUT \"a=\"; aINPUT \"b=\"; bINPUT \"c=\"; cIF c = 0 THEN IF b = 0 THEN PRINT \"x=0\" ELSE x1 = 0: x2 = -b / a PRINT \"x1=\"; x1, \"x2=\"; x2 END IFELSE 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 IFEND IFEND