RosettaCodeData/Task/Multiple-distinct-objects/Ada/multiple-distinct-objects-2.adb

A : array (1..N) of T := (others => V);