-- Chapter 2 - Programming Exercise 2
with Ada.Text_IO;
use Ada.Text_IO;

procedure Ch02_2 is

begin
   Put("John Q. Doe");
   New_Line;
   Put("Anywhere, Anystate, USA, 12345");
   New_Line;
   Put("(123) 456-7890");
   New_Line;
end Ch02_2;





-- Result of execution

-- John Q. Doe
-- Anywhere, Anystate, USA, 12345
-- (123) 456-7890