'Я решил что квадрат имеет точки (4;4), (-4;4), (-4;-4), (4;-4)'
var x,y,c:integer;
t:boolean;
begin
readln(x,y);
t:=((x>=0)and(x<=4)and(y>=0)and(y<=4))or((x>=-4)and(x<=0)and(y>=0)and(y<=4))or((x>=-4)and(x<=0)and(y>=-4)and(y<=0))or((x>=0)and(x<=4)and(y>=-4)and(y<=0)); writeln(t);<br>end.
'Если точка принадлежит заштрихованной области, то программа выведет True, если нет, то False