home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / m2t-2.zip / ANSWERS / CH04E2.MOD < prev    next >
Text File  |  1989-01-18  |  521b  |  41 lines
  1.                             (* Chapter 4 - Programming exercise 2 *)
  2. MODULE CH04E2;
  3.  
  4. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  5.  
  6. VAR Index : INTEGER;
  7.  
  8. BEGIN
  9.  
  10.    FOR Index := 1 TO 12 DO
  11.       WriteInt(Index,5);
  12.       IF Index = 10 THEN
  13.          WriteString("  October is my birthday month");
  14.       END;
  15.       WriteLn;
  16.    END;
  17.  
  18. END CH04E2.
  19.  
  20.  
  21.  
  22.  
  23. (* Result of execution
  24.  
  25.     1
  26.     2
  27.     3
  28.     4
  29.     5
  30.     6
  31.     7
  32.     8
  33.     9
  34.    10  October is my birthday month
  35.    11
  36.    12
  37.  
  38. *)
  39.  
  40.  
  41.