Как могут располагаться по отношению друг к другу точка и прямая? Изобразите случаи их взаимного расположения.

Var
 y, x : integer;
begin
  readln(x);
  if x >= 1 then
    y := 1
  else if (x > -1)  and (x < 1) then
    y := 0
  else if x < 0 then
    y := -1;
  writeln(y);
end