MODULE TBadIn;
VAR ExitCode : INTEGER;
BEGIN
  IF 1 IN 2 THEN ExitCode := 1 ELSE ExitCode := 0 END
END TBadIn.