Составить программу, содержащую ветвления и определяющую, принадлежит ли точка с координатами (X, Y) заштрихованной области.

(-5; -2) - ?

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

var x,y: real;beginwrite('x = '); readln(x);write('y = '); readln(y);if (x*y>=0)and(y<=-x+6)and(y>=-x-6)  then writeln('Да')  else writeln('Нет');end.Пример:x = -2y = -2Да