program as3;
var d,e: array [1..100] of integer;
    r:integer;
begin
r:=10;
d[1]:=3;
e[2]:=43;
e[1]:=23;
asm
lea si,d
lodsw
cmp ax,3
je @m
jmp @exit
@m :
	push si
	lea si,e
	lodsw
	mov bx,ax
	lodsw
	mul bx
	mov di,si
	sub di,4
	stosw
	mov ax,0
	stosw
@exit:
end;

end.