Определить, пересекаются ли прямая и круг.

program talglab4;
var xo,yo,xa,ya,xb,yb : integer ;
a,b,c,s,hor,rez,rezult,l,kyt: real;
p,z,grad:double;
r:byte;
beta:single;
 
function ArcSin ( s : Real ): Real;
 begin
 if s = 1.0 then { to avoid division by 0 }
ArcSin := Pi / 2.0
 else
ArcSin := ArcTan ( s / Sqrt ( 1 - s * s ) );
 end;
 
begin
writeln('vveditj koordunatu centra kola xo');
readln(xo,yo);
writeln('vveditj koordunatu prjamoji');
readln(xa,ya,xb,yb);
writeln('vveditj radius kola');
readln(r);
 
        a:=sqrt(sqr(xb-xo)+sqr(yb-yo));      {znahod*y vidstanj mi* to4kamu}
        b:=sqrt(sqr(xa-xo)+sqr(ya-yo));
        c:=sqrt(sqr(xb-xa)+sqr(yb-ya));
writeln('Dov*unu storin trukytnuka',a:10:3,'  ',b:10:3,'  ',c:10:3);
 
p:=a*(sqrt(1-(sqr((b*b-a*a-c*c)/(-2*a*c)))));
writeln('dov*una perpendukyljara',p:10:3);
if p<=r then writeln('prjama le*utj na koli')
 
        else writeln('prjama i kolo ne peretunajutsja');
 
        s:=p/r;
        hor:=(r*r-2*r*p+p*p)*2;
       readln;
       rez:=ArcSin(s);
       rezult:=rez*57.29;
       kyt:=(180-90-rezult)*2;
       writeln('kyt rivnuj',kyt:10:3);
 
        writeln('p',  p:10:3);
        writeln('radius kola',  r);
        writeln('rez:',rez:10:3);
 
        l:=(2*3.14*r*kyt)/360;
        writeln('dov*una hordu',  l:5:3);
        readln;
end.