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

program Om;var r1, r2: real;s: char;beginwrite(\'Введите величины двух сопротивлений в омах через пробел: \');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, \' ом.\')endend.