% kreis_um_durch(+M,+Q,-K)  K ist Kreis um Mittelpunkt M durch Punkt Q.
kreis_um_durch(M,Q,kreis(M,R)):-
    abstand(M,Q,R).

% abstand(+P,+Q,-A)  A ist der Abstand zwischen den Punkten P und Q.
abstand(punkt(X1,Y1),punkt(X2,Y2),A):-
    A is sqrt((X1-X2)**2+(Y1-Y2)**2).

% ?- kreis_um_durch(punkt(3,1),punkt(6,1),K).
