Построить четырехугольник наибольшей площади - QBasic

  smax = 0
  FOR i = 1 TO N
     FOR j = 1 TO N
        IF i <> j THEN
          s1 = (X(i) - X(j)) * (Y(i) + Y(j))
          FOR k = 1 TO N
            IF k <> i AND k <> j THEN
              s2 = s1 + (X(j) - X(k)) * (Y(j) + Y(k))
              FOR l = 1 TO N
                IF l <> i AND l <> j AND l <> k THEN
                  s = ABS(s2 + (X(k) - X(l)) * (Y(k) + Y(l)) + (X(l) - X(i)) * (Y(l) + Y(i)))
                  IF smax < s THEN
                      smax = s
                      X1 = X(i): Y1 = Y(i)
                      X2 = X(j): Y2 = Y(j)
                      X3 = X(k): Y3 = Y(k)
                      X4 = X(l): Y4 = Y(l)
                  END IF
                END IF
              NEXT l
            END IF
          NEXT k
        END IF
     NEXT j
  NEXT i