home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRANS.ZIP / CH04_1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  477 b   |  35 lines
  1.                             (* Chapter 4 - Programming exercise 1 *)
  2. program List_Numbers;
  3.  
  4. var Index : integer;
  5.  
  6. begin
  7.    for Index := 1 to 12 do begin
  8.       Write(Index:8);
  9.       if (Index = 10) then
  10.          Write(' October is my birth month.');
  11.       Writeln;
  12.    end;
  13. end.
  14.  
  15.  
  16.  
  17.  
  18. { Result of execution
  19.  
  20.        1
  21.        2
  22.        3
  23.        4
  24.        5
  25.        6
  26.        7
  27.        8
  28.        9
  29.       10 October is my birth month.
  30.       11
  31.       12
  32.  
  33. }
  34.  
  35.