jmp start
res dw 0	;	   /  c/a+b/d-a*c,  если a=5
a dw 81           ;    RES=<   (a+b-sign(c*d))/a, если a>5
b dw 11           ;        \ (trunc(sqrt(a*sign(a))+b)/(2*d+4))
c db 1
d db 3
DB 0ah,0dh
	start: mov ax,a
	       cmp  ax,5
	je met1
	jl met2
	       mov al,d	    ;(a+b-sign(c*d))/a, если a>5
	       cbw
	       mov bx,ax
	       mov al,c
	       cbw
	       imul bx
	       cmp ax,0
	   jl  lit
	       mov ax,1
	   jmp nex
	   lit:mov ax,-1
	   jmp nex
	   nex:mov bx,ax
	       mov ax,a
	       add ax,b
	       sub ax,bx
	       cwd
	       idiv a
	   jmp met3
          met1:mov al,d	     ; c/a+b/d-a*c,  если a=5
	       cbw
	       mov bx,ax
	       mov ax,b
	       cwd
	       idiv bx
	       mov cx,ax   ;b/d
	       mov bx,a
	       mov al,c
	       cbw
	       cwd
	       idiv bx	    ;c/a
	       add ax,cx
	       mov cx,ax    ;c/a+b/d
	       mov al,c
	       cbw
	       imul a
	       sub cx,ax   ;  c/a+b/d-a*c
	       mov ax,cx   ; c/a+b/d-a*c
	    jmp met3
 	  met2:cmp ax,0	      ;(trunc(sqrt(a*sign(a))+b)/(2*d+4))
	   jl  lit1
	       mov ax,1
	  jmp nex1
	  lit1:mov ax,-1
	  nex1:mov bx,ax
	       mov ax,a
	       imul bx
	       mov cx,ax
	       mov bx,ax
	   zikl:mov ax,cx
		imul cx
		cmp ax,bx
		jle next
	   loop zikl
	next:	mov ax,cx
		mov bx,b
		add bx,ax
		mov al,d
		cbw
		mov dx,2
		imul dx
		add ax,4
		xchg ax,bx
		cwd
		idiv bx
	  met3:mov res,ax
	  met5: jmp met5 ;$e