title Не могу найти ошибку!!!((

[Selenga]

Задание: Пользуясь ассемблерными вставками в Pascal написать программу вычисления выражения: (abs(2*a*b-sqr(b))) div (a+3)+abs((a*b-2)div b)

Программу написала, он считает,но результат с решением разный, помогите найти ошибку пожалуйста, очень срочно..

program prim;
label m,m1,m2,m3,ex;
var a,b,y:integer;
begin
writeln('a,b=');
readln(a,b);
asm
mov si,a;
add si,3;
jne m
end;
writeln('a+3=0');
asm
jmp ex
m: mov di,b;
cmp b,0;
jnz m1
end;
writeln('b=0');

[Selenga]

asm
gmp ex;
m1:mov ax,a;
imul b;
sub ax,2;
cwd;
idiv di;
jge m2;
neg ax;
m2: mov bp,ax;
mov ax,a;
add ax,a;
imul b;
mov di,b;
imul b;
sub ax,di;
jge m3;
neg ax;
m3:cwd;
idiv ax,si;
add ax,bp;
mov y,ax
end;
writeln('result:',(abs(2*a*b-sqr(b))) div (a+3) + abs((a*b-2) div b),',y=',y);
ex:
end.

[UsamaBenLadan]

Ох уж этот Turbo Pascal...