PROGRAM MAIN
    ! 結局は 1 7 9 だけを使って示せる数字を作っていけばよいのだろう。
    ! というか 5 本あれば 71 が作れるので、 9 は不要では。
    ! 3 : 7
    ! 2 : 1
    IMPLICIT NONE
    INTEGER :: N, A = 0

    READ *, N
    DO WHILE (N > 1)
        SELECT CASE (N)
        CASE (5:)
            A = 10 * A + 7
            N = N - 3
        CASE (4)
            A = 100 * A + 11
            N = N - 4
        CASE (3)
            A = 10 + A + 7
            N = N - 3
        CASE (2)
            A = 10 * A + 1
            N = N - 2
        END SELECT
    END DO
    
    PRINT *, A
END PROGRAM MAIN