DOSSEG
      .MODEL SMALL
      .STACK 100h
      mmask equ 00110000B
      .DATA
      tall DB 200 DUP (?)
      res DB 28 DUP (?)
      teller DB 0
      .CODE
      mov bx,0
      mov si,0
      mov teller,0
      mov cl,7
      mark:
      inc teller
      mov al,teller 
      mov tall[bx],al 
      inc bx
      CMP bx,200
      jl mark
      square:
      mov al,tall[bx]
      xor ah,ah
      div cl
      dec bx
      cmp bx, 0
      jle end
      CMP ah,0
      JNE square
      mov res[si],al
      inc si
jmp square
end:
  
      END