Ребят, Подскажите как пожалуйста с информатикой очень срочно задача (1) нужно выполнить в программе Паскаль ABC. net

// PascalABC.NET 3.3

begin
  var a:=ReadSeqIntegerWhile(x-gt;xlt;gt;0);
  print(a.Where(x-gt;(x mod 2=1)and(x mod 3=0)).Count);
end.

Пример:
35 60 45 9 105 0
3