org 100h

segment .data
    kol db 9
    mas db 1, 2, 3, 4, 5,7,9, 1, 2 , 7
    q db 1; 0 - четное / 1 - нечетное
    k db 7; номер чётного/нечётного
    err: db 'Error',13,10,'$'

segment .text
start:
    xor dx,dx
    xor cx, cx
    mov dh, [kol]
    mov cl, [k]
    mov si, mas
    mov bh, -1
    mov bl, [q]
repeat:
  uk:
    cmp bh, dh
    jz konez

            mov dl,[si]
            inc si
    inc bh

    cmp bl, 0      ; ищем чётное?
    jz chet           ; если да, то переходим к проверки на чётность
    nechet:            ;если нет, то проверяем на нечётность
  test dl, 0001
  jz uk

  cmp bl, 1
  jz prop

    chet:
  test dl, 0001
  jnz uk
prop:
loop repeat

            add dl, '0'
    mov ah, 2h
    int 21h

    mov dl, 32  ;пробелы
    mov ah, 2h
    int 21h
    mov dl, 32
    mov ah, 2h
    int 21h

    xor dx,dx
    mov dl, bh
    add dx, '0'
    mov ah, 2h
    int 21h
    mov ah,0h
    int 16h


    mov ax,0x4c00
    int 0x21

konez:
    mov dx,err
    mov ah,9
    int 0x21
         mov ah,0h
    int 16h

    mov ax,0x4c00
    int 0x21