Составить программу определяющую принадлежит ли точка с координатами (х;y) заштрихованной части плоскости.
Сделайте пожалуйста задание под 4 номером

var x,y: real;begin  write('задайте x и y  ');  readln(x,y);  if (x>0) and (y>0) then      if ((x>3) and (x<6) and (y<Sqrt(36-x*x))) or           ((x<3) and ((y>3-x) and (y<Sqrt(36-x*x)))) or           ((y>3) and (y<6) and (x<Sqrt(36-y*y))) or     ((y<3) and (((3-y)<x) and (x<Sqrt(36-y*y)))) then           writeln('точка лежит в области')    else       writeln('точка не лежит в области')  else     writeln('координаты должны быть положительными');end.