Небольшая программка ** паскале) Буду очень благодарен Под буквой " А"

Question

Небольшая программка на паскале) Буду очень благодарен Под буквой " А"

---

Answer 1

// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

begin

 var (x,y):=ReadInteger2('x,y=');

 Println(-x+y<=0?x*x+y*y <= ReadInteger('R=')**2?'Да':'Нет':'Нет');</p>

end.