FUNCTION IMIN(x,y :int) :int;
BEGIN  IF ( x<y ) THEN IMIN := x ELSE IMIN := y;
END;

FUNCTION IMAX(x,y :int) :int;
BEGIN  IF ( x>y ) THEN IMAX := x ELSE IMAX := y;
END;

EN IMIN := x ELSE IMIN := y;
END;

FUNCTION IMAX(x,y :int) :int;
BEGIN