{A:=(((C-O)/2)+O AND C>O);B:=(((O-C)/2)+C AND O>C);}
A:=IF(C>O,O+(C-O)/2,C+(O-C)/2);
XG:(A>REF(A,1)) AND (A>REF(A,2)) AND (A>REF(A,3)) AND C>O;