10 lines
160 B
ObjectPascal
10 lines
160 B
ObjectPascal
|
procedure pr1(act: (array of integer)-> ());
|
|||
|
|
begin
|
|||
|
|
act(Arr(1,2,3));
|
|||
|
|
end;
|
|||
|
|
var l: integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
pr1(x-> begin l := x.Length end);
|
|||
|
|
assert(l = 3);
|
|||
|
|
end.
|