Помощь в коде ассемблера+pascal

[X-Vlad]

program Test_1;
uses Crt;
var
x,y,z,f:integer;
begin
clrscr;
write('x: ');
readln(x);
write('y: ');
readln(y);
write('z: ');
readln(z);
{   f=(3x-2y+1)/(10z-1) это нужно посчитать }
asm
mov ax, 3
imul x
xchg ax, bx
mov ax, 2
imul y
sub ax,bx
mov cx,1
add cx,bx
mov dx, 10
imul z
mov bx,1
idiv dx
mov f,ax
end;
writeln('f=', f);
readkey;

ввожу данные, все ок считает но не верно. Помогите плиз.

[X-Vlad]

вот решение

 program success_project;
 uses Crt;
 var
 x,y,z,f:integer;
 begin
 clrscr;
 write('x: ');
 readln(x);
 write('y: ');
 readln(y);
 write('z: ');
 readln(z);
 {   f=(3x-2y+1)/(10z-1)  }
 asm
mov ax, 3  {ax=3}
imul x     {ax=ax*3}
xchg ax, bx {bx=ax}
mov ax, 2  {ax=2}
imul y     {ax=ax*2}
sub bx,ax  {bx=bx-ax=(ax*3)-(ax*2)}
inc bx; {bx+1}
mov ax, 10 {ax=10}
imul z     {ax=ax*10}
dec ax {ax-1}
xchg ax,bx
idiv bx
mov f,ax
 end;
 writeln('f=', f);
 readkey;
 end.

[Serge_Bliznykov]

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

program Test_1;
uses Crt;
var
  x, y, z, f: integer;
begin
  clrscr;
  write('x: ');
  readln(x);
  write('y: ');
  readln(y);
  write('z: ');
  readln(z);
{   f=(3x-2y+1)/(10z-1) это нужно посчитать }
  asm
   mov ax, 3
   imul x
   mov bx, ax
   mov ax, 2
   imul y
   sub bx,ax
   add bx,1  {в bx: (3x-2y+1)}

     { вычислим (10z-1)}
   mov ax, 10
   imul z
   sub ax,1
   mov cx,ax  {в cx: (10z-1) }
   mov ax,bx  {в ax: (3x-2y+1) }
   cwd        {расширение делимого dx:ax}
   idiv cx    {разделим dx:ax на cx
                   После операции частное помещается в ax, а остаток — в dx; }
   mov f,ax   {частное в переменную f}
  end;
  writeln('f=', f);
  readkey;
end.