ASMBLY

.data
a db ?
b db ?
c db ?
d db ?
e db ?
f db ?
space db '       $'
msg db 'VALOR A PAGAR: R$'
msg1 db ' 0$'

.code
main proc
mov ax, @data
mov ds,ax
;first
mov ah,1
int 21h
mov a,al

;space
lea dx,space
mov ah,9
int 21h

;second
mov ah,1
int 21h
mov b,al
sub b,30h
;space
lea dx,space
mov ah,9
int 21h
;third
mov ah,1
int 21h
mov c,al
sub c,30h
;new line
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h
;fourth
mov ah,1
int 21h
mov d,al
;space
lea dx,space
mov ah,9
int 21h
;fifth
mov ah,1
int 21h
mov e,al
sub e,30h
;space
lea dx,space
mov ah,9
int 21h
;sixth
mov ah,1
int 21h
mov f,al
sub f,30h

;new line
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h

mov al,b
mul c
mov bl,al
add bl,30h

mov al,e
mul f
mov cl,al
add cl,30h

add bl,cl
sub bl,48

;message
lea dx,msg
mov ah,9
int 21h

mov ah,2
mov dl,36
int 21h

lea dx,msg1
mov ah,9
int 21h

mov ah,2
mov dl,bl
int 21h


main endp
end main