begin write('x: '); readln(x); write('y: '); readln(y); if ((x >= -6) and (x <= -1)) and ((y <= 7) and (y >= 2)) or (((x <= -3) and (x >= -6)) and ((y >= -3) and (y <= 2))) then writeln('Точка принадлежит закрашенной области') else writeln('Точка не принадлежит закрашенной области'); end.
Answers & Comments
x, y: real;
begin
write('x: ');
readln(x);
write('y: ');
readln(y);
if ((x >= -6) and (x <= -1)) and ((y <= 7) and (y >= 2)) or (((x <= -3) and (x >= -6)) and ((y >= -3) and (y <= 2)))
then writeln('Точка принадлежит закрашенной области')
else writeln('Точка не принадлежит закрашенной области');
end.