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

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