Как вывести элементы с четными значенииями и четными индексами в паскале?

// PascalABC.Net 3.0, сборка 1064var  a:array[1..10] of integer;  i:integer;begin  for i:=1 to 10 do Read(a[i]);  i:=2;  while i<=10 do begin    if a[i] mod 2 = 0 then Write(a[i],' ');    i:=i+2  endend.Тестовое решение:4 5 6 3 9 8 4 10 7 28 10 2