home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / pasx.pas < prev    next >
Pascal/Delphi Source File  |  1990-04-24  |  740b  |  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.