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