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

program Om;
var r1, r2: real;
s: char;
begin
write(Введите величины двух противодействий в омах через пробел: );
readln(r1, r2);
write(Укажите метод соединения сопротивлений (параллельно - p, поочередно - s): );
readln(s);
case s of
p: write(Противодействие цепи одинаково ,(1 / (1 / r1 + 1 / r2)) : 6 : 2, ом.);
s: write(Сопротивление цепи равно ,(r1 + r2) : 6 : 2, ом.)
end
end.