Для данных областей составить программку, которая печатает true, если точка с

Уравнение окружности радиуса R, центр которой совпадает с началом системы координат в декартовой системе координат имеет вид
x+y=R
Для данного случая можно записать x+y=6 либо x+y=36.
Заштрихованная область находится снутри окружности и при этом xgt;2, т.е. является сегментом круга, поэтому условие принадлежности некоторой точки M(x,y) сегменту запишется в виде (x+ylt;36) xgt;2.
Если границы сегмента также принадлежат заштрихованной области, неравенства изменяются на нестрогие: (x+y36) x2.

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программка не работает, обновите версию!

begin
  Write('Введите координаты x,y точки: ');
  var (x,y):=ReadReal2;
  Writeln((x*x+y*ylt;=36) and (xgt;=2))
end.

Пример
Введите координаты x,y точки: 3.5 4.8
True