program abc
	implicit none 
	character(len=3) :: fname
	character(len=1) :: nana
   	integer :: n

	read(*,*) fname

	nana = "7"
    n = 0

	if(fname(1:1) == nana)  n = 1
   	if(fname(2:2) == nana)  n = 1
   	if(fname(3:3) == nana)  n = 1

	if(n == 1) then
    	write(*,*) "Yes"
    else
    	write(*,*) "No"
    endif
    
end program abc