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

При написании программы следует понимать, что у пользователя необходимо запросить помимо номиналов сопротивлений ещё и тип соединения, поскольку формулы, как известно из курса физики, отличаются в зависимости от того, параллельное или последовательное сопротивление.

Вот текст программы на Паскале.

Program pr13;
Uses
crt;
Var
s1, s2, r: real;
tcon: integer;
Begin
clrscr;
writeln('Вычисление сопротивления электрической цепи: ');
writeln('Введите исходные данные: ');
write('Величина 1-го сопротивления, Ом: ');
readln(s1);
write('Величина 2-го сопротивления, Ом: ');
readln(s2);
write('Тип соединения (1 - последовательное, 2 - параллельное): ');
readln(tcon);
if tcon=1 then r:=s1+s2 else r:=(s1*s2)/(s1+s2);
writeln('Сопротивление цепи r = ',r:3:2);
readln;
End.