Написать программу, определяющую попадает ли точка с координатами (x, y) в заштрихованную область (PASCAL)

PascalABC.NET:

### var f: (real, real) → boolean := (x, y) →   (Abs(y/x) >= 1/2) and (Abs(y/x) <= 2) and   (y<0 ? (Sqrt(x**2+y**2) > 4) and (x >= -4) and (x <= 4) : (Sqrt(x**2+y**2) <= 4)); f(RR, RR).Pr