home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pascal / pascsrc.arc / PROCED1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  534 b   |  26 lines
  1.                                 (* Chapter 5 - Program 1 *)
  2. program First_Procedure_Call;
  3.  
  4. var  Count  : integer;
  5.  
  6. procedure Write_A_Header;
  7. begin
  8.    Writeln('This is the header');
  9. end;
  10.  
  11. procedure Write_A_Message;
  12. begin
  13.    Writeln('This is the message and the count is',Count:4);
  14. end;
  15.  
  16. procedure Write_An_Ending;
  17. begin
  18.    Writeln('This is the ending message');
  19. end;
  20.  
  21. begin  (* main program *)
  22.    Write_A_Header;
  23.    for Count := 1 to 8 do
  24.       Write_A_Message;
  25.    Write_An_Ending;
  26. end.  (* of main program *)