дан массив из n чисел найти сумму тех чисел у которых нечетный индехс и числа кратны 5 или 3

Var a:array[1 ... 100000] of integer;

s, i, n:integer;

begin

readln (n);

for i:=1 to n do begin

read (a[i]);

if (i mod 2 0) and ((a[i] mod 5 = 0) or (a[i] mod 3 = 0)) then s+=a[i];

end;

writeln (s);

end.