12 lines
115 B
ObjectPascal
12 lines
115 B
ObjectPascal
unit u_diapasons3;
|
|
var a : 1..4;
|
|
|
|
begin
|
|
a := 2;
|
|
a += 1;
|
|
assert(a=3);
|
|
a -= 1;
|
|
assert(a=2);
|
|
a *= 2;
|
|
assert(a=4);
|
|
end. |