Program ex0716
implicit none

integer::students
integer,allocatable::a(:)
!integer, parameter::students =5
!integer            ::student(students)
integer            ::i

write(*,*)"How many students:"
read(*,*)students
allocate(a(students))

do i=1,students
    write(*,*)i
    read(*,*)a(i)
end do

do i=1,students
    write(*,*)a(i)
end do

stop
end