Ну смотри. У тебя цикл выполняется 10 раз. На каждой итерации проверяется, не равен ли остаток от деления счётчика на 3. Если равен, то на значение элемента массива с текущим номером увеличивается переменная S. Счётчик отсчитывается от 1 до 10. Соответственно, подходят значения 3, 6 и 9. Поскольку в массиве, как ты пишешь, номера индексов, то берём их: 3 + 6 + 9 = 18.
Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8