.model small                            
dane segment                            
	liczba db "55535"               
	potegi dw 1,10,100,1000,10000   
dane ends                               
kod segment                             
	assume cs:kod,ds:dane           
	start:                          
	       	mov ax,dane             
	       	mov ds,ax               
	       	mov cx,5                
		cmp cx,5                
		jnbe koniec             
		xor ax,ax               
		xor dx,dx               
		xor bx,bx               
		mov si,cx               
		dec si                  
	pocz:                              
		xor dx,dx
		mov dl,[offset liczba+si]
		sub dl,48               
		push ax                 
		mov ax,dx               
		mov dx,[offset potegi+bx]         
		mul [offset potegi+bx]
		pop dx   
		add ax,dx
		dec si   
		add bx,2
		loop pocz
	koniec:          
		nop
kod ends                 
	end start