1 program mwr_p;
   2 uses mtx09;
   3 begin
   4   mwr(true);
   5   mwr(FALSE);
   6   mwr(0>1);
   7   mwr(1>0)
   8 end.
   9 {
  10 TRUE
  11 FALSE
  12 FALSE
  13 TRUE
  14 }