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 / p11 / tst / binary1.pcat < prev    next >
Text File  |  2006-03-05  |  175b  |  12 lines
  1. (* This program tests integer addition. *)
  2. program is
  3.  
  4.   var x: integer := 0;
  5.       y: integer := 4;
  6.       z: integer := 3;
  7.  
  8. begin
  9.   x := y + z;
  10.   write ("4 + 3 = ", x);
  11. end;
  12.