Вычислить сумму квадратов чисел и записать результат по адресу DS:0010h

label aga;
Var Massiv : Array [0..$F] Of Byte;
Summa : Integer ;
begin
Massiv[0]:=1;
Massiv[1]:=2;
Massiv[2]:=3;
Massiv[3]:=4;
Massiv[4]:=5;
asm
xor si, si ;
xor bx, bx ;
mov cx, 5
cld
aga:
lodsb
mul al
add bx,ax
loop aga
mov ds:10h, bx
mov summa, bx
end;
writeln(summa);
readln
end.

const
  Massiv: array [1..5]  of byte = (1,2,3,4,5);
var
  Summa: integer;
begin
asm
    mov cx, 5 {sizeof(Massiv)}
    lea si, Massiv
    xor bx, bx
@l: lodsb
    cbw
    imul    ax
    add bx, ax
    loop    @l
    mov Summa, bx
    end;
writeln('Sum of array squares=',Summa);
readln;
end.

mov ds:10h,si

const
  Massiv: array [1..5]  of byte = (1,2,3,4,5);
dummy: array [1..4]  of word = (0,0,0,0);
  Summa: integer = 0;
begin