a,b,c,d=$<.read.split.map &:to_f
p (a*d+b*c)/(a+c)