дан массив целых чисел. найти сумму элементов с четными индексами

//PascalABC.Net 3.1.0.1200begin    var a := ArrRandomInteger(50, 1, 100);    writeln(a.Slice(0,2).Sum);end.