WAP To find positive negative or zero

CLS
INPUT “Enter any number”;N
IF N>0 THEN
PRINT “Positive number”
ELSE If N <0 Then
PRINT “Negative number”
ELSE
PRINT “Zero number”
END