PROGRAM T293;
VAR X:INTEGER;
VAR T:INTEGER;
BEGIN
        IF X < 5 AND T THEN X:=4;
ENDIF;
END.
