Написать программу на Паскале для нахождения точки с координатами x, y заштрихованной области

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

program FindPointInArea;

var
x, y: Real;

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

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

end.