Решите в паскале. Составить программу вычисляющую силу тока в цепи r1, r2, r3, r4, r5, r6,…

Uses crt; const R: array[1… 20] of integer=(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20); var I: array [1… 20] of real; U,x: integer; SUM: real; begin write ('U='); readln (U); for x: =1 to 20 do begin write ('R[',x,']: ',R[x],'); I[x]: =U/R[x]; SUM: =SUM+I[x]; writeln ('I[',x,']: ',I[x]: 5:3); end; writeln ('I=',SUM: 5:3); end.