Question

Составить программу, по которой выведется значение true, если точка с заданными координатами (x,y) лежит внутри заштрихованной области и false – в противном случае.

Answer 1

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.