var
  Numbers: TArray<Integer>;
  Count, CountOdd, Number: Integer;
begin
  Numbers := [1, 2, 3];
  Count := Length(Numbers);
  //count is 3

  //count by condition
  CountOdd := 0;
  for Number in Numbers do
    if Number mod 2 = 1 then
      Inc(CountOdd);
  //countOdd is 2

  WriteLn('count is ', Count);
  WriteLn('countOdd is ', CountOdd);
end.