(* Chapter 5 - Programming exercise 1 *)
program My_Address;

   procedure Name;
   begin
      Writeln('John Q. Doe');
   end;

   procedure Address;
   begin
      Writeln('1234 Anystreet');
   end;

   procedure Phone;
   begin
      Writeln('Smallberg, USA');
   end;

begin
   Name;
   Address;
   Phone;
end.




{ Result of execution

John Q. Doe
1234 Anystreet
Smallberg, USA

}