33. POSITIVE OR NEGATIVE OR NEUTRAL.

DECLARE SUB CHECK(N)

CLS

INPUT “ENTER ANY NUMBER “;N

CALL CHECK(N)

END

SUB CHECK(N)

IF N>0 THEN

PRINT “POSITIVE NUMBER “

ELSEIF  N<0 THEN

PRINT “NEGATIVE NUMBER “

ELSE

PRINT “NEUTRAL”

END IF

END SUB