Program begin_20-
var r1,r2,r3,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-
End.