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

// PascalABC.NET 3.0, сборка 1088var  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.