Посчитать сопротивление цепи: 1 - последовательное (r1+r2). 2 - параллельное (r1+r2 / (r1+r2))

program el;

Uses crt;

var n, R, R1, R2:real;

begin

writeln ('Вычисление сопротивления электрической цепи.') ;

writeln ('Введите исходные данные:') ;

writeln ('Величина первого сопротивления (Ом) - > ') ; readln (R1) ;

writeln ('Величина второго сопротивления (Ом) - > ') ; readln (R2) ;

writeln ('Тип соединения (1 - последовательное, 2 - параллельное) - > ') ; readln (n) ;

If n=1 then

R:=R1+R2

else R:=R1*R2 / (R1+R2) ;

writeln ('') ;

writeln ('Соротивление цепи: ', R) ;

end.