Написать программу в Pascal вычисления сопротивления электрической цепи, состоящей из 2-х параллельно соединенных сопротивлений. (Величина первого сопротивления 15 Ом второго сопротивления 20 Ом)

Предыдущий
вопрос Следующий
вопрос

program ParalelResistance;

var
R1, R2, R_equivalent: Real;

begin
R1 := 15; // первое сопротивление в Омах
R2 := 20; // второе сопротивление в Омах

// вычисляем эквивалентное сопротивление
R_equivalent := (R1 * R2) / (R1 + R2);

writeln('Эквивалентное сопротивление цепи: ', R_equivalent:0:2, ' Ом');
end.