11 lines
96 B
ObjectPascal
11 lines
96 B
ObjectPascal
|
var a : 1..4;
|
||
|
|
|
||
|
|
begin
|
||
|
|
a := 2;
|
||
|
|
a += 1;
|
||
|
|
assert(a=3);
|
||
|
|
a -= 1;
|
||
|
|
assert(a=2);
|
||
|
|
a *= 2;
|
||
|
|
assert(a=4);
|
||
|
|
end.
|