integer::N,M,i,j,k,switch=0,X integer,allocatable,dimension(:,:)::a,b read *,N,M allocate(a(M,N),b(M,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 X=sum(b(i,:)) do j=1,N b(i+1,j)=b(i,j)+a(i+1,j) if(X<777) cycle if(b(i,j)==0) cycle do k=j,N if(b(i,j)==0) cycle 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 end do if(sum(b(i,j:k))==777) exit end do if(switch==1) then print *,'YES' else print *,'NO' end if end