Уравнения

[varyat]

Помогите найти ошибку, программа не хочет правильно считать
Вот мой пример:f=(y-7x-2z)/(6y+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,-7
    imul x
    add ax,y
    xchg ax,bx
    mov ax,2
    imul z
    sub bx,ax
    mov cx,6
    imul y
    add cx,1
    idiv cx
    mov f,ax
end;
writeln('f=',f);
readkey; end.

[Niro]

асемблерных вставок я не знаю, но просто в паскале
не

f:integer;

а

f:ireal;

[varyat]

Незнаю,но проблема не в етом(((

[p51x]

У вас все числа целые?