A
MOV	DX,0
MOV 	BL,1
MOV	AL,BL
MUL	BL
ADD	DX,AX
CMP	BL,A
JZ	0114
INC	BL
JMP	0105
INT	20