Написать программу нахождения сопротивления цепи из n резисторов (r1,r2, … rn)…

При последовательном соединении сопротивление цепи будет равно сумме сопротивлений.uses crt; var r: array [1… 10000] of integer; n,x,RSum: integer; begin RSum: =0; write ('N='); readln (N); for x: =1 to N do begin write ('R',x,'='); readln (r[x]); RSum: =RSum+r[x]; end; writeln ('R=',RSum); end.