80 "J" CLEAR : CLS : INPUT "n=";N:N=N-1: DIM V(2,N),M(N),A(2),B(2):Y=1E99: FOR I=0 TO N
   81 INPUT "x=";V(0,I),"y=";V(1,I),"z=";V(2,I),"M=";M(I)
   82 M=M+M(I): FOR J=0 TO 2:A(J)=V(J,I)
   83 A(J)=M(I)*A(J):B(J)=A(J)+B(J): NEXT J: NEXT I: FOR J=0 TO 2:B(J)=( RCP M)*B(J): NEXT J
   84 PAUSE "Schwerpunkt:": PRINT "x=";B(0): PRINT "y=";B(1): PRINT "z=";B(2)
   85 FOR I=0 TO N-1: FOR J=I+1 TO N
   86 D= SQR ( SQU (V(0,I)-V(0,J))+ SQU (V(1,I)-V(1,J))+ SQU (V(2,I)-V(2,J)))
   87 IF X>D THEN 89
   88 X=D:U=J:V=I
   89 IF Y<D THEN 91
   90 Y=D:S=J:T=I
   91 NEXT J: NEXT I: PRINT "Max=";X: PAUSE "Von:": PRINT "x=";V(0,V): PRINT "y=";V(1,V): PRINT "z=";V(2,V)
   92 PAUSE "Bis:": PRINT "x=";V(0,U): PRINT "y=";V(1,U): PRINT "z=";V(2,U)
   93 PRINT "Min=";Y: PAUSE "Von:": PRINT "x=";V(0,T): PRINT "y=";V(1,T): PRINT "z=";V(2,T)
   94 PAUSE "Bis:": PRINT "x=";V(0,S): PRINT "y=";V(1,S): PRINT "z=";V(2,S): END