Правильно ли я составила программу на qbasic?

[mmarina80]

Задание: Составить программу решения уравнения ax^2+b=0 относительно x (параметры а и b задать самостоятельно). При отсутствии решения или бесчисленном множестве решений должен быть напечатан соответствующий текст.
INPUT a,b.
x*x=-b/a
IF a=0 THEN PRINT "Решений нет"; END
IF -b/a<0 THEN END ELSE SQR (x*x)
PRINT x
END

[Serebro]

Сообщение от mmarina80

Задание: Составить программу решения уравнения ax^2+b=0 относительно x (параметры а и b задать самостоятельно). При отсутствии решения или бесчисленном множестве решений должен быть напечатан соответствующий текст.
INPUT a,b.
x*x=-b/a
IF a=0 THEN PRINT "Решений нет"; END
IF -b/a<0 THEN END ELSE SQR (x*x)
PRINT x
END

    INPUT a,b.
IF a=0 THEN
      IF b<>0 THEN
        PRINT "Решений нет"
      ELSE
        PRINT "БЕСКОНЕЧНО МНОГО РЕШЕНИЙ"
      END IF
ELSE
    IF -b/a<0 THEN
      PRINT "НЕТ ВЕЩЕСТВЕННЫХ РЕШЕНИЙ"   REM ЗДЕСЬ МОГУТ БЫТЬ МНИМЫЕ РЕШЕНИЯ
    ELSE 
      X=SQR (-b/a)
      PRINT x
    END IF
END IF
END