Отбор 4.25

  k := 0;
  for i := 1 to N do
    if (a[i] mod 8 = a[i] mod 16) then
      k := k + 1;
  for i := 1 to N do
  begin
    if (a[i] mod 2 = 0) then
      a[i] := k;
    writeln(a[i]);
  end;