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

Text File | 2005-10-24 | 272b | 10 lines

program is
  var x : boolean := true; y:= false;
  begin
    write (x," ",  not x, " ", x and x, " ", x or x);
    write (y," ",  not y, " ", y and y, " ", y or y);
    write (x and y, " ", x or y, " ", y and x, " ", y or x);
    write (x and not (x or x and x));
  end;