// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin
 var (x, y) := ReadReal2('x, y->');
 if (x > 5) or (y > 5) or (x < 0) or (y < 0) or ((x - 2.5) ** 2 + (y - 2.5) ** 2 <= 2.25) then Println('Точка не принадлежит заштрихованной области.')
 else Println('Точка принадлежит заштрихованной области.');
end.


Пример:
x, y-> 3.5 3.5
Точка не принадлежит заштрихованной области.