PROGRAM ch1005
IMPLICIT NONE
INTEGER  , PARAMETER :: NR=5
INTEGER  , PARAMETER :: NC=10
INTEGER  , PARAMETER :: NF=3
INTEGER :: Row,Column,Floor
CHARACTER*1 , DIMENSION(1:NR,1:NC,1:NF) :: Seats=' '
  DO  Floor=1,NF
    DO  Row=1,NR
      READ *,(Seats(Row,Column,Floor),Column=1,NC)
    ENDDO
  ENDDO
  PRINT *,' Seat plan is'
  DO  Floor=1,NF
    PRINT *,' Floor = ',Floor
    DO  Row=1,NR
      PRINT *,(Seats(Row,Column,Floor),Column=1,NC)
    ENDDO
  ENDDO
END PROGRAM ch1005