4. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если
точка принадлежит  заштрихованной области
(см. рисунок 4)  и «Не принадлежит»
в противном случае. Программа должна иметь дружественный интерфейс. Протестировать
программу для точек (0,0), (1,0), (1.5,1),
(-1,1.5), (-2,-1), (2,-1), (1,-1), (-1,1).
Рис. 4()

заранее спасибо) отмечу как лучший

var     x,y : integer;begin  Writeln('Введите координаты x: ');  Read(x);  Writeln('Введите координаты y: ');  Read(y);    if (x>2) or (x<-2) then      Writeln('Принадлежит') else Writeln('Не принадлежит');end.