Pascal + условные операторы!!!

[Assik]

Для данного x вычислить значение следующей функции f, принимающей значения целого типа:
0, если x < 0,
f(x)= 1, если x принадлежит [0,1), [2,3), ... ,
–1, если x принадлежит [1,2), [3,4), ... .