home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRPT.ZIP / ifpasscript / demo_del / casetest.ifs < prev    next >
Text File  |  2001-05-23  |  235b  |  16 lines
  1. Program IFSTest;
  2. Begin
  3.   case 0 of  
  4.   0, 1: writeln('0');
  5.   else writeln('2');
  6.   end;
  7.   case 1 of  
  8.   0, 1: writeln('0');
  9.   else writeln('2');
  10.   end;
  11.   case 2 of  
  12.   0, 1: writeln('0');
  13.   else writeln('2');
  14.   end;
  15. End.
  16.