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

begin
  Write(1/r);
end.