procedure Test(var a : array[1..3] of integer);
begin
end;

begin

end.