А(20) Найти сумму элементов, стоящих на четных местах. Составить таблицу и программу

varn,i,s:integer;a:array [1..20] of integer;beginreadln (n);s:=0;for i:=1 to n do beginreadln(a[i]);if i mod 2=0 then s:=s+a[i];end;writeln(s);end.Объясню. Если индекс элемента массива четный, то этот элемент прибавляется ка сумме и выводится.