Var r,x,y : real;
begin
write('R = '); readln(r);
write('x = '); readln(x);
write('y = '); readln(y);
if ((x>=0)and(y<=0)and(x*x+y*y<=r*r) or<br> (x<=0)and(y>=0)and(y=r*r))
then writeln('Yes') else writeln('No')
end.
Пример:
R = 2
x = -0.4
y = 0.4
Yes
PS. Можно чуть покороче написать, но так нагляднее.