(3)
subtype Positive is Integer range 1 .. Integer'Last;
(4)
type String is array(Positive range <>) of Character;
type Wide_String is array(Positive range <>) of Wide_Character;
(7)
Stars : String(1 .. 120) := (1 .. 120 => '*' );
Question : constant String := "How many characters?";
-- Question'First = 1, Question'Last = 20
-- Question'Length = 20 (the number of characters)
(8)
Ask_Twice : String := Question & Question; -- constrained to (1..40)
Ninety_Six : constant Roman := "XCVI"; -- see 3.5.2 and 3.6
-- Email comments, additions, corrections, gripes, kudos, etc. to: