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

Const n = 10;var i,s :integer; a:array [1..n] of integer;begin for i:=1 to n do begin a[i]:=random(20); write(a[i],\' \'); end; for i:=1 to n do begin if (i mod 2 =0) then begin{проверяем четность} if (a[i] mod 10 = 3) then { здесь проверяем чтобы число заканчивалось на 3} s:=s+a[i]; end; writeln; write(\'summa= \',s);end.