Язык Pascal: решение задач на попадание точки в заданную область (решите)

VAR x,y:real;
begin
readln (x,y);
if y<=x then
if y<=-x then
if y>=x*x-2 then
write ('принадлежит')
else
write ('не принадлежит');
end