Составить программку которая вводит с клавиатуры координаты точек на плоскости и

Условия y-x при x0  и yx при xgt;0 можно соединить в одно: yx

var
  x, y: real;

begin
  Write('Введите координаты точки на плоскости: ');Readln(x, y);
  if (y lt;= абс(x)) and (y gt;= sqr(x) - 3) then
    Writeln('Точка принадлежит заштрихованной области')
  else
    Writeln('Точка не принадлежит заштрихованной области')
end.

Тестовое решение:
Введите координаты точки на плоскости: -1.15 -1.24
Точка принадлежит заштрихованной области