Составить программу общего сопротивления при параллельном соединении, когда r1=3, r2=6, r3=12?

Var r, r1,r2,r3:real;

begin
r1:=3; 
r2:=6; 
r3:=12;
r:=(r1*r2*r3)/(r1*r2+r2*r3+r1*r3);
print(r);
end.