Даны вещественные числа 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