check number with 4 conditions

Question

i am new here and i need some help with my simple code if it possible

in visual prolog i want check the number in 4 cases -1 , negative odd 1 , positive odd

-2 , negative even 2 , positive even

i try this one

Predicates 
Print.  
Clauses 
Print:- write ("enter number "),nl, readint(X),
        X>0,X mod 2= 0,write("positive ","even"),
        X<0,X mod 2= 0,write("negative ","even") ,

        X>0,X mod 2 <> 0,write("positive ","odd"),
        X<0,X mod 2 <> 0,write("negative ","odd") .

Goal 
Print.

any idea to help me with this problem