10 lines
146 B
ObjectPascal
10 lines
146 B
ObjectPascal
|
const c = ord('2')+10;
|
||
|
|
c2 = byte(100)-byte(50);
|
||
|
|
|
||
|
|
var v := ord('2')+10;
|
||
|
|
begin
|
||
|
|
|
||
|
|
assert(c=ord('2')+10);
|
||
|
|
assert(v=c);
|
||
|
|
assert(c2=50);
|
||
|
|
end.
|