program ch1002a
implicit none
integer, parameter:: n=10
real, dimension(1:n)::h, w, bmi
integer:: i
   open(unit=1,file='bmi.txt', status='old')
   do i=1,n
      read(1,100) h(i), w(i)
      100 format(F4.0, 2X, F3.0)
   end do
   bmi = w/(h*h)
   do i=1,n
      print 200, bmi(i)
      200 format(2X,F5.0)
    end do
end program ch1002a