dane segment
nl db 13,10,'$'
dane ends
sts segment stack 'stack'
db 512 dup(0)
sts ends

prog segment
assume cs:prog, ds:dane, ss:sts

start:
mov ax,seg dane
mov ds,ax

mov bx,0
mov cx,20
wczyt:
push cx
mov ah,1
int 21h

cmp al,'9'
ja nie
cmp al,'0'
jb nie

mov ah,0
sub al,30h
add bx,ax

nie:
pop cx
loop wczyt

push bx
mov dx,offset nl
mov ah,9
int 21h
pop bx

mov ax,bx
mov bx,10

div bx
push dx
mov dl,al
add dl,30h
mov ah,2
int 21h

pop dx
add dl,30h

mov ah,2
int 21h

mov ah,4Ch
int 21h


prog ends
end start