Для того чтобы точка принадлежала заданной области - её координата -3программа на pascal
var X,Y :integer;
begin
write('введите координату Х');
readln(X);
write('введите координату Y');
readln(Y);
if (X>(-3)) and (X<0) and (Y>(-3)) and (Y<0) then write('точка принадлежит области')<br> else write('точка не принадлежит области');
end.