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

program cube;
uses crt;
var
R1,R2,R3:integer;
begin
writeln(please enter resistance R1);
readln(R1);
writeln(please enter resistance R2);
readln(R2);
writeln(please enter resistance R3);
readln(R3);
writeln;
writeln(total resistance , 1/((1/R1)+(1/R2)+(1/R3)));
end.