Вычислить суммы произведений элементов. Pascal ABC
 

Дано массивы А1(N1,M1), A2(N2,M2), A3(N3,M3). Вычислить Х=Х1+Х2+Х3 и У=У1+У2+У3, где Х1- произведение положительных элементов массива А1, находящегося в нечетных строках, а У1-произведение отрицательных элементов массива А1, находящегося в нечетных строках. Аналогично Х2, У2 и Х3, У3 для массивов А2, А3. вычисление произведения положительных и произведения отрицательных элементов, находящихся в нечетных строках массива, оформить в виде подпрограммы.