9 (A
: String := (1 .. 15 => ASCII
.NUL
);
10 B
: String := (1 .. 5 => ASCII
.NUL
);
11 C
: String := (1 .. 5 => ASCII
.NUL
))
13 Aa
: String (1 .. 15);
21 Ada
.Text_IO
.Put_Line
(Aa
);
22 Ada
.Text_IO
.Put_Line
(Bb
);
23 Ada
.Text_IO
.Put_Line
(Cc
);