home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPC355_4.ZIP / TCOMSAMP.ZIP / PASX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-04-24  |  740 b   |  25 lines
  1.  
  2. \* A sample pascal program to compile with TPAS the pascal translator *\
  3.  
  4. Program DEMO;
  5.         var
  6.           Factor,test : Integer ;
  7.  
  8.         BEGIN   newline;
  9.                 Write('Enter a number greater than 100:');
  10.                 read(#test);
  11.                 Factor := 100;
  12.                 if (factor - 1) < test
  13.                 then  begin
  14.                         newline;
  15.                         Write('Factor is ',#factor);
  16.                         newline;
  17.                         Write('You entered ',#test);
  18.                       end
  19.                 else  begin
  20.                         newline;
  21.                         Write('You entered a number less than 100');
  22.                       end;
  23.         END.
  24.  
  25.