Ответ:

uses crt;

var r1,r2,r3:integer;

   r:real;

begin

write('Введите сопротивления R1, R2, R3: ');

readln(r1,r2,r3);

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

writeln('Общее сопротивление = ',r:0:3);  &

end.

& 0:0:3 это форматирование ответа, он выводит дополнительно три цифры после запятой

* я просто похимичил с формулой R =