Составить программу, по которой выведется значение true, если точка с заданными координатами (x,y) лежит внутри заштрихованной области и false – в противном случае.
Var x,y:real; begin read(x,y); writeln( (x > -6) and (y < 7) and ( (x < -1) and (y > 2) or (x < -3) and (y > -3) ) ) end.