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

    mov bl,20
    mov bh,0

su: mov ah,1
    int 21h
    cmp al,65
    jne diver
    inc bh
diver: dec bl
    jnz su   ; controlla quante lettere sono state inserite

    MOV AH,0
    mov al,bh
    mov bl,10
    div bl
    mov cx,ax ;salva resto e risultato

    cmp al,0
    jz unita
    mov dl,al
    add dl,48
    mov ah,2
    int 21h

unita:

    mov dl,ch
    add dl,48
    mov ah,2
    int 21h
    mov ax,4c00h
    int 21h
    end