Уровень 2 (рисунок 2) ** Паскале. Помогите пожалуйста)

Question

Уровень 2 (рисунок 2) На Паскале.
Помогите пожалуйста)

---

Answer 1

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y>=3*3)and(x*x+y*y<=5*5)and(x>=0)
  then writeln('Да')
  else writeln('Нет');
end.

Пример:
x = 4
y = 2
Да