Программирование на ассемблере

[AlexMessel]

Помогите написать задачу на ассемблере(NASM):
Начав тренировки, спортсмен в первый день пробежал 16 км. Каждый день он увеличивал дневную норму на 15% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 10 дней?

[Алексей_2012]

Самый простой способ вычислить все на калькуляторе, а в программу вставить только вывод результата вычислений на калькуляторе)

[AlexMessel]

Да проблема в том,что надо все через цикл написать

[ZX Spectrum-128]

На nasm я не умею, только встроенный асм.
Исправил ошибки.
Путь дан в метрах

{Начав тренировки, спортсмен в первый день пробежал 16 км. Каждый день
он увеличивал дневную норму на 15% нормы предыдущего дня. Какой
суммарный путь пробежит спортсмен за 10 дней?}
var
  t,x,p,i:dword;
  xx,pp:real;
label
  sum,cycle;
begin
  pp:=16000;
  xx:=pp;
  for i:=1 to 9 do
    begin
      pp:=(xx*15)/100;
      xx:=xx+pp;
    end;
  writeln('Значение, найденное на паскале = ',round(xx):4);
  p:=16000;
  x:=0;
  asm
    mov EBX,p
    mov ECX,9
    sum:
    {умножили на 15, результат в ax}
    mov EAX,15
    mul EBX
    mov p,EBX
    mov EDX,0

    mov EBX,100
    div EBX
    mov EBX,p
    add EAX,EBX
    mov EBX,EAX
    loop sum
    mov x,EBX
  end;
  writeln('Значение, найденное на ассемблере = ',x:4);
  readln;
end.

[AlexMessel]

Аее,спасибо огромное
Переделаю на NASM и ок
Очень помог