Program Task_16_13;
var x,y:real; {Координаты исходной точки}
Begin
Write('Введите координаты точки ');
ReadLn(x,y);
If ((Sqr(x)+Sqr(y)<=1) And (x<=y) And (x>=0)) Or
((Sqr(x)+Sqr(y)>=1) And (x>=y) And (x<=0))
Then WriteLn('Да' )
Else WriteLn('Нет' );
End.