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

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