Номер 7 . Рисунок 34 .Помогите пожалуйста ( Pascal)

Question

Номер 7 . Рисунок 34 .Помогите пожалуйста ( Pascal)

---

Answer 1

Элементарно, дорогуша ) 
Program p1;var a,b,p: integer;begin read(a);read(b);if(a<=4)and(a>=-4) then beginif(b<=a+4)and(b<=4-a)and(b>=-a-4)and(b>=a-4)then write('Принадлежит!')else write('Не принадлежит!');endelse write('Не принадлежит!');end.