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