22) Узнать принадлежит ли точка с координатами X, Y замкнутой области, данной

Var
  x, y: real;

begin
  write('Введите кординаты х,у точки: ');
  readln(x, y);
  if (y lt; -2 * sqr(x)) and (y gt; x - 5) then
    writeln('Точка принадлежит данной области')
  else
    writeln('Точка не принадлежит данной области')
end.

Тестовое решение:

Введите кординаты х,у точки: -2 2
Точка не принадлежит данной области

Введите кординаты х,у точки: -1 -2.5
Точка принадлежит данной области