Positive or negative using sub

Positive or negative using sub procedure.

DECLARE SUB CHECK(N)
INPUT"ENTER ANY NO";N
CALL CHECK(N)
END

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