var r1, r2, r3, r: real;

      f: text;

Begin

    Assign(f, 'baitap.inp'); reset(f);

    Read(f, r1, r2, r3);

    R:=(r1*r2+r2*r3+r3*r1)/(r1*r2*r3);

    Write('R song song = ', r);

    Readln

End.

Điện trở tương đương của 3 điện trở R1,R2,R3 trong mạch mắc song song là:

`1/R=1/(R1)+1/(R2)+1/(R3)=(R2.R3+R1.R3+R1.R2)/(R1.R2.R3)`
`=> R=(R1.R2.R3)/(R2.R3+R1.R3+R1.R2)`

`=>` Công thức phép tính trong pascal là (có lấy 2 số sau phần thập phân):

     (R1*R2*R3)/(R2*R3+R1*R3+R1*R2):0:2

Chương trình:

program bai_giai;
uses crt;
var f:text;
    R1,R2,R3:integer;
begin
    clrscr;
    Assign(f,'Baitap.INP');  reset(f);
    readln(f,R1,R2,R3);
    write('R = ',(R1*R2*R3)/(R2*R3+R1*R3+R1*R2):0:2);
    readln;
end.