-- String variables with ada.text_io; use ada.text_io; PROCEDURE hello3 is -- Declarations between IS and BEGIN s1: String := "Hi Everyone!"; -- variable: type := initial value s2: String(1 .. 20); -- Length exactly 20! Not initialized! BEGIN s2 := "Welcome to ITEC 320!"; -- Assignment. Length exactly 20! put_line(s1); put_line(s2); -- s1 := s2; -- Will not compile: different lengths s2(1) := 'L'; -- String is an array of characters put_line(s2); END Hello3; -- Output: --|Hi Everyone! --|Welcome to ITEC 320! --|Lelcome to ITEC 320!