1 2 3 4 5 6 7 8 9
procedure array_test(b: integer; parr: array of word; c: integer); begin end; begin array_test(0,[12,33,45],0); end.