Паскаль! Помогите пожалуйста дополнить программу.

Необходимо определить, принадлежит ли точка заштрихованной области. Мне сказали, что в программе не хватает одного условия, помогите пожалуйста его дописать.

var
x,y:real;
begin
if x*x+y*y< =25 then if y<=x+5 then if y<=-x-5 writeln('точка принадлежит области')
else writeln('точка не принадлежит области');
readln;
end.

  • var
    x,y:real;
    begin
    write('x(ot -5 do 5) x=');
    readln(x);
    write('y(ot -5 do 5) y=');
    readln(y);
    if ((x*x+y*y< =25) and (y<=5) and (y>=0)) or ((y< =5+x) and (y<=5) and (y>=0)) or ((y>=-5-x) and (y>=-5) and (y< =0)) then writeln('точка принадл. области') else writeln('точка не принадл. области'); readln; end.