[AND_REY]

Ф-нц набрал, осталось только ввод/вывод на Delphi.

Код:

Function Summa_ASM(A, N: Integer): Integer; Register;
Asm
 xor edi, edi
 mov esi, 1
 mov ecx, N
 mov ebx, A
@Next:
 cmp edi, ecx
 jz @Exit
 Inc edi 
 mov eax, edi
 imul ebx
 add esi, eax
 jmp @Next
@Exit: 
 xchg esi, eax
end;