Интересная Олимпиадная Задача

INPUT "vvedite kolichestvo elementov N ", n
DIM a(n)
FOR i = 1 TO n
INPUT "vvedite element ", a(i)
NEXT
PRINT "massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
max = 1
nach = 1
FOR i = 1 TO n - 1
min = a(i)
kol = 1
FOR j = i + 1 TO n
IF a(j) > min THEN
min = a(j)
kol = kol + 1
IF kol > max THEN max = kol: nach = i
END IF
NEXT
NEXT
'PRINT max; nach
PRINT a(nach);
t = a(nach)
FOR i = nach + 1 TO n
IF a(i) > t THEN PRINT a(i); : t = a(i)
NEXT

DATA 7,1,4,5,9,6,7,8,3,2,10
DIM n AS LONG, i AS LONG, j AS LONG, k AS LONG
DIM iCnt AS LONG, max AS LONG, iMax AS LONG, maxCnt AS LONG
 
n = 11
DIM a(1 TO n) AS LONG
FOR i = 1 TO n: READ a(i): NEXT i
 
FOR i = 1 TO 2 ^ n - 1
    j = i
    k = 0
    iCnt = 0
    max = 0
    DO
        k = k + 1
        IF j MOD 2 THEN
            iCnt = iCnt + 1
            IF a(k) > max THEN max = a(k) ELSE EXIT DO
        END IF
        j = j \ 2
    LOOP WHILE j > 0
    IF j = 0 AND iCnt > maxCnt THEN maxCnt = iCnt: iMax = i
NEXT i
 
j = iMax
FOR i = 1 TO n
    IF j MOD 2 THEN PRINT a(i);
    j = j \ 2
NEXT i
PRINT

DECLARE SUB printArr ()
DECLARE FUNCTION check% ()
DATA 7, 1, 4, 5, 9, 6, 7, 8, 3, 2, 10
DIM SHARED n AS LONG
n = 11
DIM SHARED aArr(1 TO n) AS LONG
DIM SHARED bArr(1 TO n) AS INTEGER
 
 
DIM a(1 TO n) AS LONG, i AS LONG, k AS LONG, p  AS LONG, j AS LONG
 
FOR i = 1 TO n: READ aArr(i): NEXT i
   
CLS
PRINT "Array:": CALL printArr
PRINT "New array:"
IF check = 1 THEN CALL printArr: END
 
FOR k = 1 TO n - 1
    REDIM a(1 TO k) AS LONG
    p = k
    FOR i = 1 TO k: a(i) = i: NEXT i
    DO
        j = j + 1
        REDIM bArr(1 TO n) AS INTEGER
        FOR i = 1 TO k: bArr(a(i)) = 1: NEXT i
        IF check = 1 THEN
        CALL printArr
        PRINT "kol-vo combyn:"; j
        END
        END IF
        
        IF p = 0 THEN EXIT DO
        FOR i = k TO p STEP -1
        a(i) = a(p) + i - p + 1
        NEXT i
        IF a(k) = n THEN p = p - 1 ELSE p = k
    LOOP
NEXT k
 
FUNCTION check%
    DIM i AS LONG, maxArr AS LONG
    FOR i = 1 TO n
    IF bArr(i) = 0 THEN
        IF aArr(i) > maxArr THEN maxArr = aArr(i) ELSE EXIT FUNCTION
    END IF
    NEXT i
    check = 1
END FUNCTION
 
SUB printArr
    DIM i AS LONG
    FOR i = 1 TO n
    IF bArr(i) = 0 THEN PRINT aArr(i);
    NEXT i
    PRINT
END SUB

INPUT n
DIM a(n), b(n)
FOR i = 1 TO n
    INPUT a(i)
NEXT
FOR i = 1 TO n
    q = 0
    FOR j = 1 TO i - 1
        IF a(j) <= a(i) AND b(j) > q THEN q = b(j)
    NEXT
    b(i) = q + 1
    IF b(i) > max THEN max = b(i): c = i
NEXT
size = max
DIM r(size)
FOR i = c TO 1 STEP -1
    IF b(i) = max THEN r(max) = a(i): max = max - 1
NEXT
FOR i = 1 TO size
    PRINT r(i);
NEXT