СРОЧНООбъясните задание (нам дали олимпиаду, но мы этого не проходили) 1.

Безотлагательно
Объясните задание (нам дали олимпиаду, но мы этого не проходили)
1. Какой получится вывод после исполнения данной программки, при этом каждый элемент равен собственному индексу?
var A:array [1..10] of integer;
i:byte;
S:integer;
begin
for i:=1 to 10 do read (A[i]);
S:=0;
for i:=1 to 10 do
if i mod 3 = 0 tnen S:=S+A[i];
write (S=, S)
end.
Нашла ответ, что S=18, но откуда это взято?