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

// PascalABC.NET 3.3begin  var a:=ReadSeqIntegerWhile(x->x<>0);  print(a.Where(x->(x mod 2=1)and(x mod 3=0)).Count);end.Пример:35 60 45 9 105 03