home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo_kylix / if.ifps3 < prev    next >
Text File  |  2002-05-23  |  139b  |  9 lines
  1. Program IFSTest;
  2. var
  3.   a: boolean;
  4. Begin
  5.   a := true;
  6.   if a then begin ;end else
  7.   if a then begin ;end else;
  8.   writeln('5');
  9. End.