В заданном массиве найти сумму квадратов чётных частей. Вывести исходный массив

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Сумма квадратов частей с четными значениями одинакова ',
      a.Where(t-gt;t.IsEven).Select(t-gt;t*t).Sum);
  Writeln('Сумма квадратов четных по порядку элементов одинакова ',
      Range(1,a.Length-1,2).Select(i-gt;Sqr(a[i])).Sum)
end.

// если индекс исходного элемента считать 1 то можно так
begin
    var arr := Arr(1,2,3,4,5,6).Println;
    Print('Сумма квадратов элементов массива с четными индексами: S = ' + 
                          arr.Where((el,ind)-gt;odd(ind)).Select(t-gt;t*t).Sum);
end.