Лабораторная работа 4 по ОЭВМ / 5 вариант / FUCK

program LABAR4;
uses crt;
var a,b,i,k,F2,F3:word;
f1:integer;
label
 hag1,hag2,hag3,hag4,hag5,hag6,hag7,exit,funk2,funk3;
begin
writeln ('‚ўҐ¤ЁвҐ зЁб«®  :');
readln(a);
writeln ('‚ўҐ¤ЁвҐ зЁб«® b:');
readln(b);
writeln ('‚ўҐ¤ЁвҐ зЁб«® i:');
readln(i);
writeln ('‚ўҐ¤ЁвҐ зЁб«® k:');
readln(k);
asm
MOV AX,A        ;
          SUB AX,B;
          cmp ax,0;
      JG HAG1;
           MOV AX,I;
          SHL AX,1 ;
          ADD AX,6 ;
           MOV F1,AX;
          NEG F1  ;
          cmp f1,ax;
          jne funk2;
       HAG1:  ;
          mov   AX,I;
          SHL AX,1  ;
          SHL AX,1  ;
          SUB AX,7  ;
          MOV F1,AX ;
          funk2:
          MOV AX,a  ;
          SUB AX,b  ;
          CMP AX,0  ;
       JG HAG2   ;
           MOV AX,I   ;
          ADD AX,1   ;
          SHL AX,1   ;
          mov f2,ax;
          cmp ax,f2;
          je funk3;
         HAG2:
          mov ax,i   ;
          SHL AX,1   ;
          ADD AX,I   ;
          SUB AX,4   ;
          MOV F2,AX  ;
          funk3:
          MOV AX,K   ;
          CMP AX,0   ;
        JNE HAG3   ;
          mov AX,F1  ;
          CMP AX,0   ;
        JG HAG4    ;
          SUB AX,AX  ;
          SUB AX,F1  ;
        HAG4:      ;
          MOV BX,6   ;
          SUB BX,AX  ;
          CMP BX,0   ;
        JG HAG5    ;
          MOV F3,6  ;
         cmp f3,6        ;
         je exit;
        HAG5:       ;
          MOV F3,ax    ;
          cmp f3,ax    ;
          je exit        ;
        HAG3:       ;
          MOV AX,F1   ;
          CMP AX,0    ;
        JG HAG6     ;
          SUB AX,AX   ;
          SUB AX,F1   ;
        HAG6:       ;
          MOV BX,F2   ;
          CMP BX,0    ;
        JG HAG7      ;
          SUB BX,BX    ;
          SUB BX,F2    ;
        HAG7:        ;
          ADD AX,BX    ;
          MOV F3,AX    ;
       exit:

end;
writeln('‡­ зҐ­ЁҐ дг­ЄжЁЁ i1=',F1);
writeln('‡­ зҐ­ЁҐ дг­ЄжЁЁ i2=',F2);
writeln('‡­ зҐ­ЁҐ дг­ЄжЁЁ res=',F3);
readln;
end.