Три сопротивления R1,R2,R3 соединены параллельно. отыскать противодействие всей цепи. Через Паскаля

Общее противодействие трех параллельно включенных резисторов считается по формуле:

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

Эта формула будет применена в программе:

program resist;
var R: array[1..3] of real;
i:integer;
begin
for i:= 1 to 3 do
begin
write(R, i, = );
Readln(R[i]);
end;
writeln(R = , (1 / (1 / R[1] + 1 / R[2] + 1 / R[3]) : 8 : 2), Ом);
end.