// При обычном делении на 0 ошибки не возникает 
var r: real := 0;

begin
  write(1/0);
end.