program T19; var Mx, My: real; Ax, Ay: real; P1x, P1y: real; P2x, P2y: real; w, s: real; begin Mx := 0; My := 10; Ax := -10; Ay := -10; w := Pi / 2; s := 10; if XYKreisLinie( Mx, My, Ax, Ay, s, w, P1x, P1y, P2x, P2y) then begin writeln(P1x: 5: 1, P1y: 5: 1); writeln(P2x: 5: 1, P2y: 5: 1); writeln end else begin Writeln('Kein Schnittpunkt') end; end.