program ex0703
implicit none
  integer, parameter :: classes  = 5
  integer, parameter :: students = 5
  integer :: student(students, classes)
  integer s ! 用來指定學生號碼
  integer c ! 用來指定班級號碼 

  do c=1, classes
    do s=1, students
      write(*,"('Number ',I2,' of class ',I2)") s,c
      read(*,*) student(s,c) ! 第c班的第s位學生
    end do
  end do

  do while( .true. )
    write(*,*) "class:"
    read(*,*) c
    if ( c<=0 .or. c>classes ) exit  
	write(*,*) "student:"
	read(*,*) s
    if ( s<=0 .or. s>students ) exit 
    write(*,"('score:',I3)") student(s,c) ! 第c班的第s位學生
  end do

  stop
end