Принадлежит ли точка, заданная координатами, заштрихованной области.

uses crt,graphABC;
type point=record
            x,y:integer;
            end;
var x,y,m:real;
    f:boolean;
    c:integer;
    p:array[1..4] of point;
begin
repeat
writeln('Введите координаты точки |x,y|<=1');
readln(x,y);
until(abs(x)<=1)and(abs(y)<=1);
f:=(x*y<=0)and(abs(y)<=abs(x));
writeln('Принадлежит ли точка заштрихованной области?');
writeln(f);
writeln;
write('Нажмте Enter для просмотра графика');
readln;
setwindowsize(400,400);
centerwindow;
clearwindow;
hidecursor;
c:=200;
m:=c-30;
setbrushstyle(bsFDiagonal);
setbrushcolor(clBlack);
p[1].x:=c; p[1].y:=c;
p[2].x:=c-round(m); p[2].y:=c;
p[3].x:=c; p[3].y:=c-round(m);
p[4]:=p[1];
polygon(p,4);
p[1].x:=c; p[1].y:=c;
p[2].x:=c+round(m); p[2].y:=c;
p[3].x:=c; p[3].y:=c+round(m);
p[4]:=p[1];
polygon(p,4);
setpenwidth(2);
line(c-round(m)-10,c,c+round(m)+10,c);
line(c+round(m)+10,c,c+round(m),c-5);
line(c+round(m)+10,c,c+round(m),c+5);
textout(c+round(m)+15,c-10,'X');
line(c,c-round(m)-10,c,c+round(m)+10);
line(c,c-round(m)-10,c-5,c-round(m));
line(c,c-round(m)-10,c+5,c-round(m));
textout(c-5,c-round(m)-25,'Y');
textout(c-20,c-round(m)-10,'1');
textout(c-25,c+round(m),'-1');
textout(c-round(m)-15,c-20,'-1');
textout(c+round(m),c-20,'1');
setpencolor(clRed);
setbrushcolor(clRed);
circle(c+round(x*m),c-round(y*m),2);
end.