Три сопротивления R1, R2, R3 соединены параллельно

Для решения данной задачи необходима формула сопротивления трех сопротивлений, соединенных параллельно:

Формула сопротивления трех сопротивлений, соединенных параллельно

Программа:

program z_4;
var R1, R2, R3, R: real;
begin
  write('Введите R1: ');  read(R1);
  write('Введите R2: ');  read(R2);
  write('Введите R3: ');  read(R3);
  R := (R1 * R2 * R3)/(R1 * R2 + R2 * R3 + R3 * R1);
  writeln('R = ', R);
end.