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

# Резисторы

r = []

for i in range(5):

   r.append(int(input("r{0}=".format(i+1))))

R = ( (1 / (r[0] + r[1])) + (1 / (r[2] + r[3])) + 1 / r[4]) ** -1

print(round(R, 8))

# Отрезки

A = list(map(int, input("первая точка: ").split(", ")))

B = list(map(int, input("середина отрезка: ").split(", ")))

C = [0, 0]

C[0] = 2 * B[0] - A[0]

C[1] = 2 * B[1] - A[1]

print("{0}, {1}".format(C[0], C[1]))