Найти сумму элементов в одномерном массиве, оканчивающихся на 3 и стоящих на четных местах

Var 
n,sum,i,b:integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n  do 
 begin   
   read(b);
    if(i mod 2=0)and(b mod 10=3)then sum:=sum+b;
  end;
  write(sum);
  end.