Математическое выражение

[Zazug]

разработать программу для нахождения значения математического выражения y в зависимости от введенных значений a и b.
по этому коду формула: y= (a/b)/3. А я не могу преобразовать в формулу:y=2* (a-b)/(a+b)

program n1;
uses crt;
var r2,r,r1,a,b:byte; k:char; n:integer;

Function asem1(a,b:byte):byte;
begin
asm
mov al,a
mov bl,b
mov ah,0
div bl
mov cl,3
mov ah,0
div cl
mov @result,al
end
end;

Function asem3(a,b:byte):byte;
begin
asm
mov al,a
mov bl,b
mov ah,0
div bl
mov ch,ah
mov ah,0
mov cl,3
div cl
add ah,ch
mov @result,ah
end;
end;

Function asem2(n:integer):integer;
begin
asm
mov ax,n
mov bx,3600 {all cecond in hour}

div bx      {current hour}

mul bx      {get a}
mov cx,ax   {seconds}
mov ax,n    {current}
sub ax,cx   {hour}

mov bx,60   {get a}
div bx      {minutes}

mov @result,ax  {output results}
end;
end;

begin
repeat
clrscr;
writeln;
writeln('1. Y=(a*b)/3.');
writeln;
writeln('2. S nachala sutok proshlo n sekund. Skolko polnix minut proshlo s nachala ocherednogo chasa.');
writeln;
writeln('1 - Raschet Y ');
writeln('2 - Reshit zadachu');
writeln('3 - Exit');
readln(k);
case k of
'1':begin
clrscr;
writeln('vvedite a'); readln(a);
repeat
writeln('vvedite b'); readln(b);
if b=0 then writeln('vvedite b<>0');
until b<>0;
r:=asem1(a,b);
r2:=asem3(a,b);
writeln;
writeln('Y=',r,',',r2);
writeln;
writeln('Press Enter');
readln;
end;
'2':begin
writeln('vvedite n'); readln(n);
r1:=asem2(n);
writeln;
writeln('Kol-vo minut=',r1);
writeln;
Writeln('Press Enter');
readln;
end;

'3':begin
exit;
end;
end;
until(k='3');

end.