{* Параллельное соединение R *}

Unit BEGIN_20;
Interface
Implementation
Begin
 writeln('Три сопротивления R1, R2 и R3 соединены параллельно. Найти сопротивление соединения R0. ');
End.

Program begin_20;

Uses begin_20.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  r1 : real;
  r2 : real;
  r3 : real;
  r0 : real;
Begin
  writeln('введите сопротивление R1');
  readln(r1);
  writeln('введите сопротивление R2');
  readln(r2);
  writeln('введите сопротивление R3');
  readln(r3);
  r0 := 1 / (1 / r1 + 1 / r2 + 1 / r3);
  writeln('общее сопротивление R0', r0 : 4 : 4);
  Readln; {* Ждем нажатия Enter *}
End.