RosettaCodeData/Task/Substring/Ada/substring-1.ada

type String is array (Positive range <>) of Character;