Написать функцию, которая вычисляет сопротивление цепи, состоящей из двух резисторов. Параметрами функции являются

{ Вычисляет сопротивление электрической цепи }
function Sopr(rl,r2: real; t: integer): real;
{ rl,r2 - величины сопротивлений t - тип соединения: 1- последовательное; 2- параллельное. Если тип соединения указан неверно, то возвращает -1 }
begin
if t-1 then Sopr:= rl+r2;
if t=2 then Sopr:= rl*r2/(rl+r2)
else Sopr:=-l;  { неверно указан тип соединения}
end;