program main
implicit none
  integer :: students
  integer,allocatable :: a(:)
  integer :: i

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

  do i=1,students
    write(*,"('Number',I3)")i
    read(*,*)i
  end do
  
  stop
end