Дано N целых чисел, сгенерированных случайным образов в спектре -100, 100.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
  Writeln('П= ',a.Where(k-gt;kgt;5).Aggregate(BigInteger(1),(p,q)-gt;p*q))
end.

Пример
n= 50
-5 42 31 99 39 62 31 -41 -88 73 -60 95 69 -31 -12 39 16 31 -63 40 -52 -57 86 87 71 -82 -24 60 -11 -57 11 -26 -57 27 -82 3 9 -3 -83 -11 62 -56 95 -66 -49 -16 80 58 26 22
П= 4764546458283894070551668787355317043200000