Составить программу, проверяющую принадлежность точки с координатами x, y заштрихованной части плоскости (паскаль)

Предыдущий
вопрос Следующий
вопрос

program CheckPointBelonging;
var
x, y: real;
begin
writeln('Введите координаты точки (x, y):');
readln(x, y);

if ((x >= 0) and (y >= 0) and (y <= x)) or ((x < 0) and (y < 0) and (y >= x - 1)) then
writeln('Точка принадлежит заштрихованной части плоскости.')
else
writeln('Точка не принадлежит заштрихованной части плоскости.');
end.