program ch1002 implicit none integer, parameter :: n = 10 real, dimension (1:n) :: h real, dimension (1:n) :: w real, dimension (1:n) :: bmi integer :: i do i = 1, n read 100, h(i), w(i) 100 format (f4.2,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 ch1002