9 lines
125 B
ObjectPascal
9 lines
125 B
ObjectPascal
|
begin
|
|||
|
|
var p := (p0: procedure)->
|
|||
|
|
begin
|
|||
|
|
p0();
|
|||
|
|
end;
|
|||
|
|
var i := 0;
|
|||
|
|
p(()->begin Inc(i) end);
|
|||
|
|
assert(i = 1);
|
|||
|
|
end.
|