4. Точка А задана координатами X,Y. Написать программу, которая выводит слово...

Question

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

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

Answer 1

Var  
   x,y : integer;

begin

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

end.