unit Program94; procedure Test(params a : array of integer); begin end; begin Test; end.