data segment
    inputstring db "Enter your mass: $"
    arefm db ?

    n db 9
    mass db 10 dup(?)
    sum db 0
    counter db 0
data ends

codesg segment
    assume cs:codesg, ds:data, es:data
    start:

    mov ax, data
    mov es, ax
    mov ds, ax

    mov ah, 0
    mov al, 3
    int 10h

    mov ah, 9
    lea dx, inputstring
    int 21h

    xor cx, cx
    mov cl, n
    lea bx, mass
    cycle1:

    mov ah, 1
    int 21h
    sub al, 30h
    mov [bx], al
    inc bx
    add sum, al
    loop cycle1

    xor ax, ax
    mov al, sum
    div n
    add al, 30h
    mov arefm, al

    ;-------------------------------

    mov ah, 2
    mov bh, 0
    mov dh, 1
    mov dl, 0
    int 10h

    mov ah, 2
    mov dl, arefm
    int 21h




    ;-----------------------------------

    mov ah, 2
    mov bh, 0
    mov dh, 2
    mov dl, 0
    int 10h


    xor cx, cx
    mov cl, n

    lea bx, mass
    mov counter, 0
    cycle2:

    mov ah, arefm
    sub ah, 30h

    cmp ah, [bx]
    jbe hoba1
    hoba1GoOut:

    inc bx

    loop cycle2


    jmp goOut

    hoba1:
    cmp [bx], ah
    jz hoba1GoOut
    inc counter
    mov al, 2fh
    mov [bx], al
    jmp hoba1GoOut

    goOut:

    mov ah, 2
    mov dl, counter
    add dl, 30h
    int 21h

    ;-----------------------------

    mov ah, 2
    mov bh, 0
    mov dh, 3
    mov dl, 0
    int 10h

    xor cx, cx
    mov cl, n

    lea bx, mass

    cycle3:

    mov ah, 2
    mov dl, [bx]
    add dl, 30h
    int 21h

    inc bx

    loop cycle3





    mov ah, 4ch
    int 21h
codesg ends
    end start