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

program el;Uses crt;var n,R,R1,R2:real;beginwriteln('Вычисление сопротивления электрической цепи.');writeln('Введите исходные данные:');writeln('Величина первого сопротивления (Ом) -> '); readln(R1);writeln('Величина второго сопротивления (Ом) -> '); readln(R2);writeln('Тип соединения (1 - последовательное, 2 - параллельное) -> '); readln(n);If n=1 thenR:=R1+R2else R:=R1*R2/(R1+R2);writeln('');writeln('Соротивление цепи: ',R);end.