6 lines
85 B
ObjectPascal
6 lines
85 B
ObjectPascal
|
function f1(x: byte := 1) := x;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var s := $'{f1}';
|
|||
|
|
assert(s = '1');
|
|||
|
|
end.
|