PROGRAM MAIN
    IMPLICIT NONE
    CHARACTER(:), ALLOCATABLE :: S
    INTEGER :: N

    READ *, N
    IF (MOD(N, 2) == 0) THEN
        S = REPEAT('1', N / 2)
        PRINT *, S
    ELSE
        S = '7' // REPEAT('1', N / 2 - 1)
        PRINT *, S
    END IF
END PROGRAM MAIN