Составить алгоритм программы решения квадратного уравнения вида ах²+вх+с=0 .Решить задачу как в QBasic

INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
    PRINT "корней нет"
    END
END IF
IF d > 0 THEN
    PRINT "x1="; (-b - SQR(d)) / 2 / a
    PRINT "x2="; (-b + SQR(d)) / 2 / a
ELSE PRINT "x="; (-b) / 2 / a
END IF