Составить программу, содержащую ветвления и определяющую, принадлежит ли точка с координатами (X,Y) заштрихованной области.
Помогите, пожалуйста

Program circle;

var x,y :integer;

begin

writeln(Введите координаты);

readln(x,y);

if (sqr(x)+sqr(y)gt;=9) and (sqr(x)+sqr(y)lt;=36) and (xgt;=0) then

writeln(Точка принадлежит области)

else writeln(Точка не принадлежит области);

readln;

end.