(* Chapter 2 - Programming exercise 1 *)
program My_Name;

begin
   Writeln('John Q. Doe')
end.




{ Result of execution

John Q. Doe

}