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?'Да':'Нет':'Нет');

end.