begin   
comment integer division by zero exception INTDIVZERO;

  integer n;
  xcplimit(intdivzero) := 3;
  xcpmark(intdivzero) := true;
  xcpmsg(intdivzero) := "integer division by zero";
  xcpaction(intdivzero) := 1;

  n := 123;
  n := n div 2;
  write(n);
  n := n div 0;
end.