.model tiny
        .data
        .code
        mov ax,@data
        mov ds,ax

        mov cl,0
        mov ch,0
        mov dx,0
   su:  mov ah,1
        int 21h
        sub al,48
        mov ah,0
        push ax
        inc cl
        cmp al,'9'
        jne su
label:  pop bx
        cmp bx,5
        ja skip
        inc ch
        add dx,bx
 skip:  dec cl
        jnz label
        mov ax,dx
        div ch
        sub al,48
        mov ah,oeh
        int 10h




        mov ax,4c00h
        int 21h

        end