The challenge for admission to the course "First steps in programming"

So, the task:
The integer n is entered from the keyboard. Print "0" if n is zero, and "1" otherwise. It is allowed to use only arithmetic operations.

Oh yeah, it needs to be done on turbo pascal. I found solutions only in other languages.

UPD : You cannot use the try ... except construction and type conversion.
')
UPD2 : Everything is so hot to discuss, but there is no way to add a topic (
Thanks for the minuses in karma!

PS Cross post from my blog .
PPS Now I have enough karma, in which blog to move this topic?