Program Rick_and_Morty;
var x,y:integer;
Begin
write('введите x: ');
readln (x);
write('введите y: ');
readln (y);
if ((x>=-1) and (x<=2) and (y>=-5) and (y<=5))<br>or ((x>=2) and (x<=6) and (y>=2) and (y<=5))<br>or ((x>=-5) and (x<=-1) and (y>=-5) and (y<=-2))<br>then
writeln('(',x,',',y,') - входят в область')
else
writeln('(',x,',',y,') - не входят в область');
writeln('конец');
end.