Написать и выполнить программу: сформировать массив из 15 целых чисел из [-28;25], вывести исходный массив в строку; найти произведение всех элементов; найти количество положительных элементов; найти минимальный элемент и его индекс.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(15,-28,25); a.Println;  Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));  Writeln('Положительных элементов: ',a.Where(t->t>0).Count);  var imin:=a.IndexMin;  Writeln('Номер минимального элемента- ',imin+1,    ', его значение равно ',a[imin])end.Пример4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21П = -447760579166208000Положительных элементов: 8Номер минимального элемента- 7, его значение равно -28