.model small 
.data
A db 1,8,4,3,5,7,9
N equ $-offset A ; razmer massiva A
B db N dup(0)
.code
start: 
mov ax,@data
mov ds,ax


xor si,si
xor di,di
mov bl,2
mov cx,N
cikl:
xor ax,ax
mov al,A[si]
div bl
cmp ah,0
jne dal
mov al,A[si]
mov B[di],al
inc di
dal:
inc si
loop cikl

exit:
mov ax,4c00h
int 21h