Даны действительные числа x,y. Определить, принадлежит ли точка с координатами x,y заштрихованной части плоскости график (к)

// PascalABC.NET 3.0, сборка 1088
var
  x,y,t:real;
begin
  Write('Введите через пробел координаты точки :');
  Read(x,y);
  t:=abs(x);
  if t<1 then
    if y>=t then Writeln('Попадает')
    else Writeln('Не попадает')
  else
    if y>=1 then Writeln('Попадает')
    else Writeln('Не попадает')
end.