program name
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int32)::i,ans
    integer(int32), allocatable::a(:)
    character(3):: n

    read*, n

    do i=1,3
        if (n(i:i) == '7') then
            print*, 'Yes'
            stop
        end if
    end do
    print*, 'No'

    
end program name