program main
      real a(5, 3)
      do 12 i=0,4
      do 12 j=1,3
      a(i+1,j)=i*3+j
12    continue
      write(*,*)a(2,3)
      end