program main
      implicit none
      integer,dimension(2792,2613)::a
      integer r
      integer c
      open(1,file=("dem.txt&quot
       do r=1,2792
        read(1,*)a(r,
       end do
       if(r>766.and.r<1055.and.c>1046.and.c<1083)then
        a(r,c)=a(r,*9/10
      write(1,*)a(r,c)
      end if
    close(1)
    stop
    write(*,*)a(r,c)
end