program prog16
      implicit none
      integer i, j, M, N
      real a(10,10)
      
      read *, M, N
      if ((M .lt. 1) .or. (M .gt. 10) .or.
     +    (N .lt. 1) .or. (N .gt. 10)) stop
      
      print *, 'Исходная матрица размера ', M, 'x', N, ':'
      do i = 1, M
        read *, (a(i,j), j=1,N)
      end do
      
      print *, 'Транспонированная матрица размера ', N, 'x', M, ':'
      do j = 1, N
        print *, (a(i,j), i=1,M)
      end do
      
      end