Для данного вещественного x найти значение следующей функции f, принимающей значения целого типа

0, если x < 0,
f (x) = 1, если x принадлежит [0, 1), [2, 3), ... ,
-1, если x принадлежит [1, 2), [3, 4), ...

Program If27;
Var
y:Integer;
x:Real;
Begin
ReadLn(x);
y := -1;
 
While (x >= 2) Do
x := x - 2;
 
If (x < 0) Then
y := 0
Else 
If (x >= 0) And (x < 1) Then
y := 1;
WriteLn('f(x) = ',y); 
End.

автор: Sklyarov Sergej a.k.a. S9