AGDAN_1

DIM N AS INTEGER, I AS INTEGER, BI AS INTEGER
CLS
DO
    INPUT "N [2..20]: ", N
LOOP WHILE N < 2 OR N > 20
DIM A(1 TO N) AS INTEGER, B(1 TO N) AS INTEGER
FOR I = 1 TO N
    PRINT "A("; I; ") = ";
    INPUT "", A(I)
NEXT I
BI = 1
PRINT "Результирующий массив:"
FOR I = 1 TO N
    IF A(I) <> 0 THEN
        B(BI) = A(I)
        PRINT B(BI)
        BI = BI + 1
    END IF
NEXT I