begin
  var i := 6;
  case i of
    0..3 : i := 1;
    6 : i := 2;
    7..10 : i := 3;
  end;
  assert(i=2);
  i := 15;
  case i of
    2,5,1,3 : i := 1;
    12,13,14,15,18 : i := 2;
    31..40 : i := 3;
  end;
  assert(i=2);
end.