// 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Точка не принадлежит заштрихованной области.