PROGRAM MAIN
    IMPLICIT NONE
    INTEGER :: B(9), I

    READ *, B(:)
    DO I = 1, 9
        IF(B(I) /= I) THEN
            PRINT *, I
            EXIT
        END IF
    END DO
END PROGRAM MAIN