Не выходит написать программку в Паскале... помогитеее

Var r,x,y : real;
begin
write('R = '); readln(r);
write('x = '); readln(x);
write('y = '); readln(y);
if ((xgt;=0)and(ylt;=0)and(x*x+y*ylt;=r*r) or
 (xlt;=0)and(ygt;=0)and(ylt;x+r)and((x+r)*(x+r)+(y-r)*(y-r)gt;=r*r))
  then writeln('Yes') else writeln('No')
end.

Пример:
R = 2
x = -0.4
y = 0.4
Yes

PS. Можно чуток пократче написать, но так нагляднее.