Составить программу на языке qbasic для решения уравнения ax+b=0

CLS
INPUT "a=", a
INPUT "b=", b
IF a = 0 THEN
   IF b = 0 THEN
      PRINT "Resheniy beskonechno"
   ELSE
      PRINT "Resheniy net"
   END IF
ELSE
   PRINT "x="; b / a
END IF
END