home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pascal / pascsrc.arc / PROCED5.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  441 b   |  27 lines
  1.                                 (* Chapter 5 - Program 5 *)
  2. program Procedure_Calling_A_Procedure;
  3.  
  4. procedure One;
  5. begin
  6.    Writeln('This is procedure one');
  7. end;
  8.  
  9. procedure Two;
  10. begin
  11.    One;
  12.    Writeln('This is procedure two');
  13. end;
  14.  
  15. procedure Three;
  16. begin
  17.    Two;
  18.    Writeln('This is procedure three');
  19. end;
  20.  
  21. begin  (* main program *)
  22.    One;
  23.    Writeln;
  24.    Two;
  25.    Writeln;
  26.    Three;
  27. end. (* of main program *)