ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst/expr2.pcat

Text File | 2005-10-24 | 184b | 9 lines

program is
  var a, b : integer := 1;
  var x, y : integer := 1.234;
  begin
    a := b * b + - 3 * - 2;
    x := x - y - (x - y) + 4.321;
    write ("a = ", a, "x = ", x);
  end;