home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRANS.ZIP / CH05_1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  450 b   |  35 lines
  1.                             (* Chapter 5 - Programming exercise 1 *)
  2. program My_Address;
  3.  
  4.    procedure Name;
  5.    begin
  6.       Writeln('John Q. Doe');
  7.    end;
  8.  
  9.    procedure Address;
  10.    begin
  11.       Writeln('1234 Anystreet');
  12.    end;
  13.  
  14.    procedure Phone;
  15.    begin
  16.       Writeln('Smallberg, USA');
  17.    end;
  18.  
  19. begin
  20.    Name;
  21.    Address;
  22.    Phone;
  23. end.
  24.  
  25.  
  26.  
  27.  
  28. { Result of execution
  29.  
  30. John Q. Doe
  31. 1234 Anystreet
  32. Smallberg, USA
  33.  
  34. }
  35.