Assembler_Kvadrato_Suma

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