вычислить сумму индексов нулевых элементов одномерного массива х[1..n]

Спасибо

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;  var s:=0;  for var i:=0 to a.Length-1 do    if a[i]=0 then s+=i+1;  Writeln('Сумма индексов нулевых элементов равна ',s)end.Примерn= 20-4 -8 -5 -5 0 3 10 3 -9 6 -4 -3 -6 8 -1 -8 2 -7 0 6Сумма индексов нулевых элементов равна 24