Вычисление выражения по формуле

var a, b, c, r, q, t: integer;
begin
 Write('This program can do the following calculating:(3a-4c^2)/(b-2) just put values');
 writeln('');
 writeLn('a=');
 ReadLn(a);
 write('b=');
 ReadLn(b);
 write('c=');
 ReadLn(c);
  asm
   mov ax,a
   mov cx,3
   mul cx
   mov cx,ax  
   mov ax,c
   imul ax
   mov dx,ax
   mov ax,4
   mul dx
   mov dx,ax 
   sub cx,dx 
   mov dx,b
   sub dx,2 
   mov q,cx
   mov t,dx
  end;
  r := q div t;
  Writeln('Okay, check, your result = ', r, ' delimoe = ', q, ' delitel = ', t);
  Writeln('Program can output only integer result, press any key to end...');
  readln;
end.

   mov ax,a
   mov cx,3
   mul cx
   mov si,ax
   mov di,dx;di:si=3*a
   mov ax,c
   mul ax;dx:ax=c*c
   shld dx,ax,2
   shl ax,2;dx:ax=4*c*c
   sub si,ax
   sbb di,dx;si:di=3*a-4*c*c
   mov cx,b
   sub cx,2
   mov ax,si
   mov dx,di
   div cx; ax=(3a-4c*c)/(b-2)

asm
 mov ax,c
 imul ax    ;c^2
 shl ax,1
 rcl dx,1   ;2c^2
 shl ax,1
 rcl dx,1   ;4c^2
 mov bx,ax
 mov cx,dx
 mov ax,a
 mov dx,3
 imul dx    ;3a
 sub ax,bx
 sbb dx,cx  ;3a-4c^2
 mov cx,b
 dec cx     ;b-1
 dec cx     ;b-2
 mov q,ax   ;по идее переменная должна быть LongInt
 mov t,cx
 idiv cx    ;(3a-4c^2)/(b-2)
 mov r,ax
end ;