Построить совокупность попарно связанных п точек с заданными координатами

CLS
SCREEN 12
DO
    LOCATE 1, 1: INPUT "Введите координаты первой точки X, Y: ", X1, Y1
    LOCATE 1, 1: PRINT SPACE$(80)
    LOCATE 1, 1: INPUT "Введите координаты второй точки X, Y: ", X2, Y2
    LOCATE 1, 1: PRINT SPACE$(80)
    CIRCLE (X1, Y1), 2, 14
    CIRCLE (X2, Y2), 2, 14
    LINE (X1, Y1)-(X2, Y2), 14
    LOCATE 1, 1: INPUT "Продолжить (Y/N)?", K$
    LOCATE 1, 1: PRINT SPACE$(80)
    K$ = UCASE$(K$)
LOOP WHILE K$ = "Y"

CLS
INPUT "Введите 1-9 значное число: ", N&
DO WHILE N& > 0
    S = S + N& MOD 10
    N& = N& \ 10
LOOP
PRINT "Сумма цифр:"; S

CLS
DO
    INPUT "Введите число: ", N
    IF N > 0 THEN
        IF S > 0 THEN
            IF S > N THEN S = N
        ELSE
            S = N
        END IF
    END IF
LOOP WHILE N <> 0
IF S > 0 THEN
    PRINT "Наименьшее положительное число последовательности: "; S
ELSE
    PRINT "В последовательности нет положительных чисел"
END IF

CLS
RANDOMIZE TIMER
INPUT "Введите N: ", N
REDIM X(1 TO N)
REDIM Y(1 TO N)
PRINT "Исходный массив X:"
FOR I = 1 TO N
    X(I) = INT(RND * 100)
    PRINT X(I);
NEXT I
PRINT
PRINT "Полученный массив Y:"
FOR I = 1 TO N
    Y(I)=X(N-I+1)
    PRINT Y(I);
NEXT I
PRINT
PRINT "Сортировка..."
FOR I = 1 TO N
    FOR J = 1 TO N - 1
      IF X(J) < X(J + 1) THEN
          SWAP X(J), X(J + 1)
      END IF
    NEXT J
NEXT I
PRINT "Отсортированный массив X:"
FOR I = 1 TO N
    PRINT X(I);
NEXT I