home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / WHILE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  338 b   |  22 lines
  1. PROGRAM While_Example;
  2.  
  3. {       This program demonstrates
  4.         the WHILE..DO loop          }
  5.  
  6. USES
  7.     CRT;
  8.  
  9. VAR X :Integer;
  10.  
  11. BEGIN {Main program}
  12.     CLRSCR;
  13.     X := 10;
  14.     WHILE (X > 0) DO
  15.         BEGIN
  16.             WRITE ('  X = ',X:3);
  17.             X := X - 2; {value of x reduced by two}
  18.         END;
  19.  
  20. END.
  21.  
  22. ə