Помогите решить. Паскаль, пожалуйста

N2 var x,y:integer; begin read(x,y); if (x<=3) and (x>=-3) and (y<=2) and (y>=0) then write('Принадлежит') else write('Не принадлежит'); end. в картинке 1)-3 (S) в картинке 2)-1+3+9...