Написать программу вычисления сопротивления электрической цепи, состоящей из 2 х сопротивлений. Сопротивления могут быть соединены параллельно или последовательно. Как должен быть реализован вывод результата на экран: Выберите тип соединения: 1 - последовательное, 2 - параллельное Введите 1 ое сопротивление Введите 2 ое сопротивление Сопротивление цепи = ... Ом

program rezist;

var r1, r2: real;

t: integer;

begin

writeln ('Введите тип соединения');

writeln (' (Последовательное - 1, параллельное - 2) ');

read (t);

writeln ('Введите величину первого сопротивления в (Ом) ');

read (r1);

writeln ('Введите величину второго сопротивления в (Ом) ');

read (r2);

if t = 1 then writeln ('Сопротивление цепи ', r1 + r2, ' Ом');

if t = 2 then writeln ('Сопротивление цепи ', 1 / (1/r1 + 1/r2),' Ом')

end.