Итак, задача:
С клавиатуры вводится целое число n. Выведите «0», если n равно нулю, и «1» в противном случае. Разрешается использовать только арифмитические операции.

Ах да, это нужно сделать на турбо паскале. Я нашёл решения только на других языках.

UPD: Нельзя использовать конструкцию try...except и преобразование типов.

UPD2: Все так жарко обсуждают, а плюсануть топик никак(
Спасибо за минусы в карму!

P.S. Кросс пост из моего блога.
P.P.S Теперь мне хватает кармы, в какой блог переместить этот топик?