home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo / longfortest.ifps3 < prev    next >
Text File  |  2002-01-05  |  141b  |  10 lines
  1. Program IFSTest;
  2. var
  3.   i, i2: Longint;
  4. Begin
  5.   for i := 0 to 1000000 do
  6.   begin
  7.     i2 := i -1;
  8.   end;
  9.   writeln(inttostr(i2));
  10. End.