Дан целочисленный массив размера n. вывести все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а также их количество сделать

// PascalABC.NET 3.3

begin
  var n:=ReadInteger('n =');
  var a:=ArrRandom(n,10,90); a.Println;
  Print(a.Where(x->x mod 2=0).Println.Count);
end.

Пример:
n = 10
12 76 26 69 90 86 71 71 45 44
12 76 26 90 86 44
6