Дан одномерный массив чисел. Если произведение элементов с чётными номерами больше произведения элементов с нечётными номерами, то найти номер максимального элемента, иначе – номер минимального элемента.

Помогите, пожалуйста, с блок-схемой

С какой блок-схемой?

// PascalABC.NET 3.3, сборка 1607 от 31.12.2017// Внимание! Если программа не работает, обновите версию!type  R=sequence of integer;begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q);  if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd))  then Writeln('Номер максимального элемента: ',a.IndexMax+1)  else Writeln('Номер минимального элемента: ',a.IndexMin+1)end.Примерыn= 1731 98 7 42 -70 -98 -34 43 -48 -40 -28 -35 15 26 25 1 -66Номер минимального элемента: 6n= 1595 88 -82 96 87 -68 17 40 -66 1 60 -25 -78 -55 -55Номер максимального элемента: 4