QBASIC

WAP TO DISPLAY POSITIVE, NEGATIVE OR ZERO

CLS

INPUT "Enter any number"; N

IF N > 0 THEN

PRINT "The number is positive"

ELSEIF N < 0 THEN

PRINT "The number is negative"

ELSE

PRINT "The number is zero"

END IF

END