12 lines
134 B
ObjectPascal
12 lines
134 B
ObjectPascal
|
unit u_case5;
|
||
|
|
var a,b : integer;
|
||
|
|
begin
|
||
|
|
a := 34;
|
||
|
|
case a of
|
||
|
|
0..12 : b := 12;
|
||
|
|
13..25 : b := 25;
|
||
|
|
26..34 : b := 34;
|
||
|
|
end;
|
||
|
|
assert(b=34)
|
||
|
|
end.
|