Принадлежность точки заштрихованной области. Проверка: возможен ли треугольник с такими сторонами - Pascal ABC

Формулировка задачи:

Я понимаю,что я не один такой,который просит,чтобы решили задачу по Паскаль,дело в том,что задали много задач по этому языку. И у меня уже голова не варит,я сделал больше половины,а дальше уже не соображаю.Помогите пожалуйста. Задача 1. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 1) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (1.5,2), (0,0), (-1.5, 1), (1,-1.2), (-2,-1). Задача 2. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 2) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (2.5, 2), (1,1), (0,0), (1,0), (2,-1). Задача 3. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 3) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (0,0.8), (0,0), (-1.5,1), (1,1.5), (-2,-1). Задача 4. Треугольник задан длинами сторон А, В, С. Написать программу, определяющую, существует ли данный треугольник. Для решения этой задачи использовать сложные логические условия. Программа должна иметь дружественный интерфейс. Протестировать программу для следующих исходных данных: а) A=3, B=4, C=5 б) A=1, B=1, C=1 в) A=0, B=4, C=5 г) A=-3, B=6, C=5 д) A=2, B=1, C=8

Решение задачи: «Принадлежность точки заштрихованной области. Проверка: возможен ли треугольник с такими сторонами»

Листинг программы

var x,y: real;
  
begin
  write('Введите координату точки x: ');  
  readln(x);
  write('Введите координату точки y: ');  
  readln(y);
  if ((x>=1)or(x<=-1)) then writeln('Принадлежит')
  else writeln('Не принадлежит');
end.

Объяснение кода листинга программы

В данном коде происходит чтение координат точки x и y с помощью функции readln. Затем происходит проверка принадлежности точки заштрихованной области. Если точка находится внутри области (т.е. x значение больше или равно 1 или x значение меньше или равно -1), то выводится сообщение Принадлежит, в противном случае выводится сообщение Не принадлежит.