Division by zero на Turbo Pascal

[Kingdom_Reborn]

Как можно обработать ошибку при делении на ноль целых чисел? Мне нужно что-то типа этого

{$I-}
Read(x);
{$I+}
if IOResult <> 0 then ...

только для ошибки Divide by zero.

[Пепел Феникса]

а может проще проверить делитель?

[Kingdom_Reborn]

У меня есть функция F, описанная как функция, она вычисляет значение. Вывожу я значение как WriteLn(F([параметры])). Так вот в этой функции может случиться деление на ноль, как его обработать? Можно было бы завести логическую переменную и по ней определять, но вывод у меня напрямую: WriteLn(F(...)), поэтому проверить значение этой логической переменной не удастся, а вызывать заранее функцию F не хочется. Вывод должен быть именно какой есть...

[Пепел Феникса]

а внутри функции проверку сделать не дано?

[Kingdom_Reborn]

можно, конечно, но я хотел бы что-нибудь типа

{$Ё-}
WriteLn(F(...));
if Ошибка then WriteLn('не определено');
{$Ё+}

[p51x]

try
 F();
except
  on EZeroDivide do Ezhik();
end;

[Kingdom_Reborn]

Сообщение от p51x

try
 F();
except
  on EZeroDivide do Ezhik();
end;

На Паскале нет try...except

[Stilet]

Именно поэтому рекомендую не морочить башню думой, и воспользоваться IFами
Можно на паскале умудрится прикрутить обработчик, но тут малой кровью не отделаешся.