PROGRAM TST3;
VAR X, Y:INTEGER;
BEGIN X:=2;
  Y:=0;
  X:=X DIV Y
END.