m:-readln([A,B]),format("~2f
",A*B/(A+B)),m.