home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p3 / tst / expr3.pcat < prev    next >
Text File  |  2005-10-24  |  368b  |  15 lines
  1. program is
  2.    var x : integer := 10;  
  3.    procedure echo (q:integer) : integer is
  4.     begin
  5.       write(q);
  6.       return q;
  7.     end;
  8.    begin
  9.      write (x, " ", +x, " ", -x, " ", x + x, " ", x - x, " ",x * x, 
  10.         " ", x div x, " ", x mod x);
  11.      write (10 * x * x - 20 * x + 30);
  12.      write ((echo(1)+ echo(2)) + (echo(3) + echo(4))); (* ok regardless *)
  13.    end;
  14.  
  15.