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

Program Rick_and_Morty;var x,y:integer;Beginwrite('введите x: ');readln (x);write('введите y: ');readln (y);if ((x>=0) and (y>=0) and (x*x+y*y<=25))or ((x>=0) and (y>=0) and (x*x+y*y>=9))or ((x>=0) and (y<=0) and (x*x+y*y<=25))or ((x>=0) and (y<=0) and (x*x+y*y>=9))then writeln('(',x,',',y,') - входят в облость')else writeln('(',x,',',y,') - не входят в облость');writeln('конец');end.