Решить из программирования дано x. записать ее в виде < отрицательное> или < ноль> в qbasic, напишите программу полностью которую туда необходимо занести, что бы работало,

Microsoft QBasic 1.0

INPUT "x=", x
SELECT CASE x
CASE IS > 0
   PRINT "Положительное"
CASE IS < 0
   PRINT "Отрицательное"
CASE ELSE
   PRINT "Ноль"
END SELECT