home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / answers / ch02_2.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  382 b   |  25 lines
  1.                            -- Chapter 2 - Programming Exercise 2
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure Ch02_2 is
  6.  
  7. begin
  8.    Put("John Q. Doe");
  9.    New_Line;
  10.    Put("Anywhere, Anystate, USA, 12345");
  11.    New_Line;
  12.    Put("(123) 456-7890");
  13.    New_Line;
  14. end Ch02_2;
  15.  
  16.  
  17.  
  18.  
  19.  
  20. -- Result of execution
  21.  
  22. -- John Q. Doe
  23. -- Anywhere, Anystate, USA, 12345
  24. -- (123) 456-7890
  25.