10 lines
133 B
ObjectPascal
10 lines
133 B
ObjectPascal
|
procedure p1;
|
|||
|
|
begin
|
|||
|
|
var o: object;
|
|||
|
|
var p: procedure := procedure -> begin
|
|||
|
|
(new object[](o)).Sort;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
end.
|