RosettaCodeData/Task/Multiple-distinct-objects/Ada/multiple-distinct-objects-1...