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

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...