求1公式在Delphi下的代入

求一公式在Delphi下的代入
给出公式是  V1/R1+V2/R2=X/R1+X/R2+X/R3

未知数有6个 V1,V2,X,R1,R2,R3

随便给出其中5个未知数值算出第六个数的值是多少
delphi

------解决方案--------------------
先根据5个已知数得到6个公式,然后再代入已知数算出第六个数的值
当已知V2,X,R1,R2,R3时,根据公式1来计算:V1 = (X/R1+X/R2+X/R3 - V2/R2) *R1;
当已知V1,X,R1,R2,R3时,根据公式2来计算:V2 = (X/R1+X/R2+X/R3 - V1/R1) *R2;
...
以此类。