我无法正确编写程序，或者更确切地说是分享
var
s:word;
c:integer;
begin
writeln('найти сумму s=x^3/2+1 при x[0,40]');
asm
mov cx, 2
mov dx, 0
mov bx, 0
@1:
add dl, 1
mov al, dl
mul dl
mul dl
mov bl, dl
mov bl, 2
div bl
add ax, 1
add bx,ax
loop @1
mov s, bx
end;
writeln ('s:= ',s);
end.