4 lines
68 B
ObjectPascal
4 lines
68 B
ObjectPascal
begin
|
|
assert(1bi shl 2 = 4bi);
|
|
assert(10bi shr 2 = 2bi);
|
|
end. |