home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / WRITEINT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-12-15  |  202 b   |  14 lines
  1. PROGRAM WriteInt;
  2.  
  3. VAR
  4.   IntText : Text;
  5.   I,J     : Integer;
  6.  
  7. BEGIN
  8.   Assign(IntText,'INTEGERS.DAT');
  9.   Rewrite(IntText);
  10.   FOR I := 1 TO 25 DO Writeln(IntText,I);
  11.   Close(IntText)
  12. END.
  13.  
  14.