11 lines
159 B
ObjectPascal
11 lines
159 B
ObjectPascal
unit u_ord1;
|
|
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. |