visual-prolog - 有4个条件的支票号码

Question

我是新来的，如果可能的话，我需要一些关于我的简单代码的帮助

在视觉序言中，我想检查 4 种情况下的数字 -1 ，负奇数 1 ，正奇数

-2 , 负偶数 2 , 正偶数

我试试这个

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.

有什么想法可以帮助我解决这个问题