Объяснение:

const    

n = 10;    

r1 = 2;  

  r2 = 4;    

r3 = 3;

var  

  temp1, temp2: Real; begin  

  temp1 := r1 * ((n div 2) * (n + 1) + Ord(Odd(n)) * ((n div 2) + 1));    

temp2 := 2 * r2 * r3 / (r2 + r3);  

  WriteLn('R=',  (r1 + temp1 * temp2 / (temp1 + temp2) + r2):0:4);

end.

                                     PascalABC.NET                                      

Ответ:

• begin
• var n := ReadInteger('Введите количество резисторов:');
• var Rs := ReadArrInteger('Введите их сопротивления:',n);
• Writeln(NewLine, 'Общее сопротивление цепи равно:');
• Println(' при последовательном соединении -', Rs.Sum,'Ом');
• Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');
• end.

или кратко:

• begin
• var Rs := ReadArrInteger(3);
• Println('послед:', Rs.Sum);
• Println('парал:', 1/Rs.Sum(r->1/r));
• end.

Пример работы: