procedure array_test(b: integer; parr: array of word; c: integer);cdecl;
begin
end;


var
 a: array[1..12] of word;
begin
  array_test(0,a,0);
end.