Help с задачей, plz!

program fonariki;
var s,ax,ay,bx,by,r:integer;x,y,ab,z,s1,s2,s3,s4,p,coss,sinn:real;
begin
   assign(input,'input.txt'); reset(input);
   assign(output,'output.txt'); rewrite(output);
   readln(ax,ay);   readln(bx,by);    readln(r);    readln(s);
   ab:=sqrt(sqr(ax-bx)+sqr(ay-by));
   if ab<2*r then begin
   if ab=0 then begin if pi*r*r<=s then writeln('NO')
                            else writeln('YES'); halt(0); end;
   p:=(2*r+ab)/2;
   s1:=2*sqrt(p*(p-r)*(p-r)*(p-ab));
   z:=sqrt(sqr(r)-sqr(ab/2));
   x:=arctan(2*z/ab);
   s2:=2*((2*pi-2*x)*(sqr(r))/2);
   s1:=s1+s2;
   if s1>s then writeln('YES')
    else writeln('NO');
    end  else
           if pi*r*r*2<=s then writeln('NO')
             else writeln('YES');

end.