7 lines
150 B
ObjectPascal
7 lines
150 B
ObjectPascal
begin
|
|
case 0 of
|
|
0 .. 1 , 2 .. 3 : exit ;
|
|
4 .. 5 , 6 .. 7 : exit ;
|
|
else exit ;
|
|
end;
|
|
end. |