Составить программу, по которой определяется лежит ли точка с заданными координатами (x y) внутри заштрихованной области.
Помогите пожалуйста, очень срочно надо!

var x,y:real;beginwrite('Введите x и y: ');readln(x,y);// точка лежит в 1 четверти, ур-е границы x^2+y^2=5^2if (x>=0) and (y>=0) then  if x*x+y*y<25 then writeln('Да, лежит') else writeln('Нет, не лежит');// точка лежит во 2 четверти, ур-е границы y=x-5if (x<0) and (y>0) then  if y<x-5 then writeln('Да, лежит') else writeln('Нет, не лежит');// точка лежит в 3 четверти, ур-е границы y=-x-5if (x<0) and (y<0) then  if y<-x-5 then writeln('Да, лежит') else writeln('Нет, не лежит');// точка лежащая в 4 четверти не принадлежит фигуреif (x>0) and (y<0) then writeln('Нет, не лежит')end.