-- Chapter 2 - Programming Exercise 1
with Text_IO;
use Text_IO;

procedure Ch02_1 is

begin
   Put("John Q. Doe");
end Ch02_1;




-- Result of execution

-- John Q. Doe