; f = ((a+2*(b^2))*(2*(c^2)-d)/4*(a+e^2)    ;oper=bite znakovie
    .model small
    .stack 100h
    .386
    .data
    a   db  10
    b   db  2
    c   db  3
    d   db  1
    e   db  2
    w   dd  ?
    x   dd  ?
    y   dd  ?
    z   dd  ?
    .code
start:
    mov ax, @data
    mov ds, ax
    mov eax, 0
    mov al, b
    imul al     ;ax=b^2
    mov bx,ax   ;bx=b^2
    mov al,2
    cbw
    imul bx
    rol eax,16
    mov ax,dx
    ror eax,16  ;eax=2*b^2
    mov ebx,eax
    xor eax,eax
    mov al,a
    cbw
    cwde    ;eax=a
    add eax,ebx ;eax=a+2*(b^2)
    mov w,eax   ;w=a+2*(b^2)
    mov al,c
    imul al ;ax=c^2
    mov bx,ax   ;bx=c^2
    mov al,2
    cbw
    imul bx
    rol eax,16
    mov ax,dx
    ror eax,16  ;eax=2*c^2
    mov ebx,eax ;ebx=2*c^2
    mov al,d
    cbw
    cwde
    sub ebx,eax ;ebx=(2*c^2)-d
    mov x,ebx   ;x=(2*c^2)-d
    mov eax,w   ;eax=a+2*b^2
    imul eax,ebx    ;edx:eax=((a+2*(b^2))*(2*(c^2)-d)
    mov z,edx   ;z=starsh
    mov y,eax   ;y=mladsh
    xor eax,eax
    mov al,e
    imul al     ;ax=e^2
    mov bx,ax   ;bx=e^2
    mov al,a
    cbw
    add ax,bx   ;ax=(a+e^2)
    mov bx,ax
    mox al,4
    cbw
    imul bx
    rol eax,16
    mov ax,dx
    ror eax,16  ;eax=4*(a+e^2)
    cmp eax,0   ;znamenatel ne=0 ??
    je met
    mov ecx,eax
    mov eax,y
    mov edx,z
    idiv ecx    ;eax=chastnoe,edx=ostatok



met:    mov ax, 4c00h
    int 21h
    end start