Program Point;
var
  x, y: integer;
Begin
  //Ввод координат точки
  write('X точки -> ');
  readln(x);
  write('Y точки -> ');
  readln(y);
  
  //Проверка, входит ли точка в закрашенную область
  
  if ((x >= -4) and //Проверка X
      (x <= 4) and
      (y <= 0) and  //Проверка Y
      (y >= (-1.5) * x - 6) and
      (y >= 1.5 * x - 6)) then
    write('Точка принадлежит закрешенной области.')
  else
    write('Точка НЕ принадлежит закрашенной области.');
End.