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

begin

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

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

end.