писец, вот эта програмка на ассемблере
.MODEL TINY
.CODE
ORG 100H
BEGIN: JMP MAIN
A1 DB '000'
A2 DB '111'
A3 DB '0000'
PR1 DB 'Vvedite 4islo 1 '
PR2 DB 'Vvedite 4islo 2 '
PR3 DB 'Summa: '
.386
MAIN PROC NEAR

CLC


CALL CLS
LEA BP,PR1
MOV CX,11H
MOV DX,0000H
CALL OUTPUT
LEA BX,A1
CALL INPUT
LEA BP,PR2
MOV CX,10H
MOV DX,0000H
CALL OUTPUT
LEA BX,A2
CALL INPUT
MOV CX,03
LEA SI,A1+2
LEA DI,A2+2
LEA BX,A3+3
A10:
MOVZX AX,[SI]
ADC AL,[DI]
AAA
MOV [BX],AL
DEC SI
DEC DI
DEC BX
LOOP A10
MOV [BX],AH
LEA BX,A3
MOV CX,04H
A20:

OR BYTE PTR[BX],30H
INC BX
LOOP A20
CALL CLS
LEA BP,PR3
MOV CX,08H
MOV DX,0000H
CALL OUTPUT
LEA BP,A3
MOV CX,04H
MOV DX,0009H
CALL OUTPUT
MOV AH,10H
INT 16H

MOV AX,4C00H
INT 21H
MAIN ENDP
;=================================
OUTPUT PROC NEAR
MOV AX,1301H
MOV BX,0031H
INT 10H
RET
OUTPUT ENDP
;==================================
CLS PROC NEAR
PUSHA
MOV AX,0600H
MOV BH,31H
MOV CX,0000H
MOV DX,184FH
INT 10H
MOV AH,02H
MOV BH,00H
MOV DX,0000H
INT 10H
POPA
RET
CLS ENDP
;====================================
INPUT PROC NEAR
PUSHA

MOV CX,03H
AP:
MOV AH,10H
INT 16H
MOV [BX],AL
INC BX
LOOP AP


POPA
RET
INPUT ENDP
;====================================
END BEGIN

просто складывает 2 числа введенные с клавиатуры... писец!!!