Program resistance;
var r1, r2, r3: real;
begin
readln(r1, r2, r3);
r1 := 1/r1 + 1/r2 + 1/r3;
r1 := 1/r1;
writeln(r1)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.