// Стандартный метод последовательности CountOf
begin
  var a := Arr(1,3,5,7,1,2,1,3,1,5);
  a.CountOf(1).Print;
end.