Написать функцию, вычисляющую сопротивление электрической цепи, состоящей из двух сопротивлений. Параметрами функции должны быть величины этих сопротивлений и тип соединения (0 - последовательное, 1 - параллельное).

Function Ro (R1, R2:real; Ts:byte) : real;

Begin

if Ts = 0 then Ro:=R1+R2

else Ro: = (R1*R2) / (R1+R2)

End;

Var

R1, R2:real;

Ts:byte;

Begin

Write ('R1 = '); ReadLn (R1);

Write ('R2 = '); ReadLn (R2);

Write ('Тип соединения: '); ReadLn (Ts);

WriteLn ('Ro = ', Ro (R1, R2, Ts));

End.