Вычислить значение функции y в заданной точке x y= -x+1, при x< -1 0, при -1< =x< 0 x^2, при x> 0

Var  x: real;
begin
  read(x);
  if(x < -1) then writeln(-x + 1)
  else if(x >= -1) and (x < 0) then writeln(0)
  else writeln(x * x);
end.