do read*,a,b print'(f0.2)',a*b/(a+b) enddo end