if ( int(x/2) = x/2) { число четное; } else { число не четное; }
if x mod 2 then ;нечетное else ;четное endif