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

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.