var
  actual: [4]Word := [4]Word{}

begin
  for i := 1u to 4u by 2u do
    actual[i] := i
  end;
  assert(actual = [4]Word{ 1u, 0u, 3u, 0u })
end.