program main implicit none real*8::vl,vr,d,w read *,vl,vr,d,w print '(f0.15)', d/(vl+vr)*w end program main