Вычислить значение выражения (Паскаль с использованием Ассемблера) - Turbo Pascal

Формулировка задачи:

Задание. Составить программу для вычисления функции на языке программирования Pascal с использованием Ассемблер : f = ( x + 5y - 12z ) / ( 2z -5) ; Почему неправильно считает? Только с 1 правильный результат.

                    Листинг программы
                
 
                        
                          
                    
program Al1;
uses crt;
 
var x,y,z:integer;
 
f:integer;
 
begin
 
clrscr;
 
write('Input x=');
 
readln(x);
 
write('Input y=');
 
readln(y);
 
write('Input z=');
 
readln(z);
 
asm
 
mov ax,1
imul x
xchg ax,bx
mov ax,5
imul y
add ax,bx
mov bx,12
imul z
sub ax,bx
mov cx,2
imul z
mov bx,5
sub cx,bx
idiv cx
mov f,ax
end;
writeln('f=',f);
readkey; end.

Решение задачи: «Вычислить значение выражения (Паскаль с использованием Ассемблера)»

Листинг программы

  asm
    mov ax, 1
    imul x
    mov bx, ax  ; bx=x
    mov ax, 5
    imul y
    add bx, ax  ; bx=x+5y
    ............
  end;

Объяснение кода листинга программы

Код написан на языке Turbo Pascal и использует ассемблер. Он выполняет следующие действия:

mov ax, 1 - присваивает переменной ax значение 1.
imul x — умножает значение переменной x на 1.
mov bx, ax — присваивает переменной bx значение переменной ax.
mov ax, 5 - присваивает переменной ax значение 5.
imul y — умножает значение переменной y на 5.
add bx, ax — прибавляет значение переменной ax к значению переменной bx.
........... — продолжение кода, которое не видно в данном фрагменте.