POSITIVE OR NEGATIVE(SUB)

DECLARE SUB CHECK(N)
CLS
INPUT "ENTER THE NUMBER";N
CALL CHECK(N)
END

SUB CHECK(N)
IF N>0 THEN
PRINT "THE GIVEN NO IS POSITIVE"
ELSE
PRINT "THE GIVEN NO IS NEGATIVE"
END IF
END SUB

Comments

Popular posts from this blog

Father's day

Journey to jm

My Father