integer::N,M,i,j,k,switch=0 integer,allocatable,dimension(:,:)::a,b read *,N,M allocate(a(M,N),b(M+1,N)) do i=1,M read *,a(i,:) end do do j=1,N b(1,j)=a(1,j) end do do i=1,M do j=1,N do k=1,N if(sum(b(i,j:k))==777) then switch=1 end if if(sum(b(i,j:k))>=777) exit end do if(sum(b(i,j:k))==777) exit b(i+1,j)=b(i,j)+a(i+1,j) end do if(sum(b(i,j:k))==777) exit end do if(switch==1) then print *,'YES' else print *,'NO' end if end