package Import1 is type Arr is array (Positive range <>) of Integer; procedure Create (Bounds : Arr); end Import1;