Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения — Pascal(Паскаль)

var
r,r1,r2,r3:real;
begin
   r1:=10;
   r2:=20;
   r3:=15;
   r:=(r1*r2*r3)/(r2*r3+r1*r3+r2*r1);
writeln(r);
end.