Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)

Question

Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)

---

---

Answer 1

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

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

Comments

спасибо большое (:

---

Пожалуйста.