Помогите с задачей на Visual prolog , Даны три числа a,b,c !найти сумму положительных чисел!

я сделал эту задачу, но препод сказал, что она неправильная и надо по другому сделать-через правило:
positive (X,X):-X>0,!.
positive (_,0).

вот мой вариант
||
\/
predicates
onPushButtonClick : button::clickResponder.
clauses
onPushButtonClick(_Source) = button::defaultAction():-
A=toTerm(edit_ctl:gettext()),
B=toTerm(edit1_ctl:gettext()),
C=toTerm(edit2_ctl:gettext()),
summa(A,B,CRez),
listBox_ctl : add(toString(Rez)),!.
predicates
summa:(integer,integer,integer,integer) procedure(i,i,i,o).
clauses
summa(A,B,C,Rez):-
A>0, B>0,C>0,!, Rez=A+B+C.
summa(A,B,C,A):-
A>0,B<0,C<0,!.
summa(A,B,C,B):-
A<0,B>0,C<0,!.
summa(A,B,C,C):-
A<0,B<0,C>0,!.
summa (_,_,_,0).
summa(_,_,0).



прошу помочь ????!!!!!?????

блин, неужели нет надежды что кто то поможет????