Найдите ошибку в 7 строке(Qbasic) :
CLS
K = 0
DIM B(K)
INPUT N
FOR I = 1 TO N
INPUT A
IF A > 0 AND A MOD 3 = 0 THEN K=K+1 : B(K) = A
NEXT I
IF K > 0 THEN GOTO 10 ELSE GOTO 20
C = K
10 FOR D = C TO 1
PRINT B(K)
NEXT D
END
20 PRINT -1
END

CLS K = 0 DIM B(10000) INPUT N FOR i = 1 TO N INPUT A IF A > 0 AND (A MOD 3) = 0 THEN K = K + 1: B(K) = A NEXT i IF K > 0 THEN GOTO 10 ELSE GOTO 20 10 : C = K FOR D = C TO 1 STEP -1 PRINT B(D) NEXT D END 20 : PRINT -1END