integer::N,M,i,j,k,d=0 integer,allocatable,dimension(:,:)::a integer,allocatable,dimension(:)::b,c read *,N,M allocate(a(M,N),b(N),c(N)) do i=1,M read *,a(i,:) end do b(0:N)=0 c(0:N)=0 do i=1,M do j=1,N if(j==1) then do k=1,N b(k)=b(k)+a(i,k) c(k)=c(k-1)+b(k) end do end if do k=1,N-1 if(c(j+k-1)-c(k-1)==777) then print *,'YES' stop end if end do end do end do print *,'NO' end