Program to check whether an inputted number is Positive, Negative or zero

@0,6 say "Checking given number is Positive, Negative or Zero"
? ""
Input "Enter Number = " to n
If n == 0 then
? "Zero"
Endif
If n > 0 then
? "Positive Number"
Endif
If n < 0 then
? "Negative Number"
Endif