Даны два массива М1 и М2, содержащие К1 и К2 целых чисел, соответственно. Определить произведение чисел в каждом из этих массивов, и вывести произведение полученных результатов.
Примечание. Программа должна содержать две процедуры (процедура ввода массивов и процедура нахождения произведения элементов)

Что в данной программе выполняет Aggregate?

Умножение. Там же видно. (p,q) -> p*q

если написать p+q - найдет сумму )))

// PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018// Внимание! Если программа не работает, обновите версию!procedure ArrRead(var a:array of integer);begin  var n:=ReadInteger('Количество элементов в массиве:');  a:=ReadArrInteger('Введите элементы массива:',n)end;procedure ArrMult(a:array of integer; var p:BigInteger);begin  p:=a.Aggregate(BigInteger(1),(p,q)->p*q)end;begin  var m1,m2:array of integer;  ArrRead(m1); ArrRead(m2);  var p1,p2:BigInteger;  ArrMult(m1,p1); ArrMult(m2,p2);  Writeln('Произведение элементов первого массива ',p1);  Writeln('Произведение элементов второго массива ',p2);  Writeln('Общее произведение ',p1*p2)end.