// При вещественном делении на 0 ошибки не возникает 

begin
  var r: real := 0;
  Print(1/r);
end.