16 lines
238 B
ObjectPascal
16 lines
238 B
ObjectPascal
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. |