Ввести координаты и определить, попадают ли они в закрашенную область

var    x, y: integer; begin    readln(x, y);    if (x > 0) and (y>=0) and (y<=x) or (x<=0) and (y>0) and (y< -x) then        writeln('Принадлежит')    else       writeln('Не принадлежит'); end.