home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_del / whiletest.ifs < prev    next >
Text File  |  2001-06-01  |  445b  |  21 lines
  1. Program IFSTest;
  2. var
  3.   i: Integer;
  4. Begin
  5.   i := 0;
  6.   while true do
  7.   begin
  8.     writeln('1');
  9.     if i = 0 then begin i:=i+1; continue; end;
  10.     writeln('2');
  11.     if i = 1 then begin i:=i+1; continue; end;
  12.     writeln('3');
  13.     if i = 2 then begin i:=i+1; continue; end;
  14.     writeln('4');
  15.     if i = 3 then begin i:=i+1; continue; end;
  16.     writeln('5');
  17.     if i = 4 then begin i:=i+1; break; end;
  18.   end;
  19.   writeln('6');
  20. End.
  21.