Составьте программу для паскаля по графикам y=-x y=x y=1

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
  then writeln('YES')
  else writeln('NO')
end.

Пример:
x = 0.5
y = 0.3
NO