11 lines
119 B
ObjectPascal
11 lines
119 B
ObjectPascal
type TArr = array of integer;
|
|
|
|
procedure Test(var a : TArr);
|
|
begin
|
|
end;
|
|
|
|
const s : TArr = (1,2,3);
|
|
|
|
begin
|
|
Test(s);
|
|
end. |