1.в последовательности чисел натуральных найти количество чисел кратных трем 2.в последовательности натуральных чисел найти четные числа заканчиваются на 4

1)
begin
  var a := ArrRandom(20, 1, 100);
  a.Println();
  writeln(a.Where(x -> x mod 3 = 0).Count);
end.

2)
begin
  var a := ArrRandom(20, 1, 100);
  a.Println();
  writeln(a.Where(x -> (x mod 2 = 0) and (x mod 10 = 4)));
end.