//PascalABC.NET версия 3.3.1590 от 03.12.17
//Если программа не запускается, то обновите версию
begin
var a := ReadInteger(a =);
var b := ReadInteger(b =);
Writeln(1 / (1 / a + 1 / b));
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.