Для каждой задачи составить программу содержащую ветвления и определяющую принадлежит...

Question

Для каждой задачи составить программу содержащую ветвления и определяющую принадлежит ли точка с координатами (Х,У) заштрихованной области.
!!!РЕШИТЕ В PASCAL!!!
Фото в вложении

---

Answer 1

Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)<br> then writeln('YES')
else writeln('NO')
End.

Пример:
4 1
YES