Подсчитать произведение чёрных элементов стоящих на местах красных 3

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-99,99); a.Println;
  Writeln('Искомое произведение ',
      Range(2,n-1,3).Select(i->a[i]).Aggregate(BigInteger(1),(p,q)->p*q))
end.

Пример
n= 20
-9 -60 -35 90 97 68 -2 25 -69 80 -13 -24 22 -48 33 40 -75 -78 47 -89
Искомое произведение 10144854720