MINI(<integer expression>, <integer expression>);
Example:
Me := MAXI(MINI(X1, X2), MAXI(MINI(X2, X3), MINI(X1, X3))); WRITELN('Medium is ',Me);