Program ex0701
implicit none
integer, parameter::students =5
integer ::student(students)
integer ::i
do i=1,students
write(*,*)i
read(*,*)student(i)
end do
do while(.true.)
write(*,*)"Query:"
read(*,*)i
if(i<=0.or.i>students)exit
write(*,*)student(i)
end do
stop
end