Три сопротивления r1,r2,r3 соединены параллельно. найти сопротивление всей цепи. через паскаля

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var r1,r2,r3:real;
  Read(r1,r2,r3);
  Writeln(1/(1/r1+1/r2+1/r3))
end.