program main implicit none integer,parameter :: students=5 integer :: student(students)=(/ 80,90,85,75,95 /) integer i do while(.true.) write(*,*) "Query:" read(*,*) i if(i<=0 .or. i>students)exit write(*,*) student(i) end do end