program ex0705
use calculate_distance
implicit none
write(*,*) 'Input shoot angle:’
read(*,*) angle
write(*,*) 'Input shoot speed:’
read(*,*) speed
write(*, '(T2, A4, F7.2, 1A)') 'Fly' , get_distance(angle, speed), 'm’
stop
end program ex0705