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

var x, y : real;beginwrite('x = ');readln(x);write('y = ');readln(y);if (y > -1) and (y < 1) and (x <= 0) and (x > -1) thenwrite('Принадлежит!')elsewrite('Не принадлежит!');end;