REM

CLS

INPUT “ENTER ANY NUMBER”; N

IF N > 0 THEN

PRINT N; IS POSITIVE NUMBER”

ELSEIF N < 0 THEN

PRINT N; IS NEGATIVE NUMBER”

END IF

END

USING SUB PROCEDURE

DECLARE SUB CHECK (N)

CLS

INPUT “ENTER ANY NUMBER”; N

CALL CHECK (N)

END

SUB CHECK (N)

IF N > 0 THEN

PRINT N; "IS POSITIVE NUMBER”

ELSEIF N < 0 THEN

PRINT N; "IS NEGATIVE NUMBER”

END IF

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CHECK$ (N)

CLS

INPUT “ENTER ANY NUMBER”; N

PRINT N; “IS “; CHECK$(N)

END

FUNCTION CHECK$ (N)

IF N > 0 THEN

CHECK$ = “POSITIVE NUMBER”

ELSEIF N < 0 THEN

CHECK$ = “NEGATIVE NUMBER”

END IF

END FUNCTION

## No Comments