program h_data_average
implicit none
real:: h1,h2,avg
integer::i
do i=1,10
print*,"enter h1 and h2 for set", i,":"
read*, h1,h2
avg=(h1+h2)/2.0
print*,"average=",avg
end do
end program h_data_average