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