if s(v461^y)<>'' and (not('et al. и др. ':v461^y)) or v509^2:'2' or (p(v924) or p(v510) and v510^u='') and a(v700) or 
s(v461v700v701v200v702v600v601v711v972v962v961):'^u2'or s(v46v225v606v607):'^u1'or 
s(v461^y,v970v922^c,v925^a,v925^b,v925^c,v454^z,v481v905^u) <>''or v629^a:'1'or val(v517^u)>0 
then "\\$A9,9$D\\E"v970^a," "v970^b,"F"d970/if 'et al. и др. ':v461^y then else/|\\$A9,9$D\\E|v461^y|F|fi/mhl, 
   if v700^u:'2'then/|\\$A9,9$D\\E|v700^a,| |v700^d,|, |v700^g,if a(v700^g) then|, |v700^b fi, 
       if s(v700^1,v700^c,v700^f)<>''then ' (',v700^1,if s(v700^1)<>''then" ; "d700^c fi,v700^c, 
          if s(v700^1,v700^c)<>''then" ; "d700^f fi,v700^f,')'else |.|n700^b fi'F'fi/ 
   (if v701^u:'2'then/|\\$A9,9$D\\E|v701^a,| |v701^d,|, |v701^g,if a(v701^g) then|, |v701^b fi, 
       if s(v701^1,v701^c,v701^f)<>''then ' (',v701^1,if s(v701^1)<>''then" ; "d701^c fi,v701^c, 
          if s(v701^1,v701^c)<>''then" ; "d701^f fi,v701^f,')'else |.|n701^b fi'F'fi)/ 
   (if v961^u:'2'then/|\\$A9,9$D\\E|d961^u,v961^x,v961^a,| |v961^d, 
       if p(v961^a)then |, |v961^g,if a(v961^g) then|, |v961^b fi, 
          if s(v961^1,v961^c,v961^f)<>''then ' (',v961^1,if s(v961^1)<>''then" ; "d961^c fi,v961^c, 
             if s(v961^1,v961^c)<>''then" ; "d961^f fi,v961^f,')'else |.|n961^b fi 
       fi, 
       if p(v961^4) then' (', 
          if v961^4*4.1:'*' then v961^4*5 else &unifor('Q'v961^4*4.1),v961^4*5 fi,|, |d961^5, 
          if v961^5*4.1:'*' then v961^5*5 else &unifor('Q'v961^5*4.1),v961^5*5 fi,|, |d961^6, 
          if v961^6*4.1:'*' then v961^6*5 else &unifor('Q'v961^6*4.1),v961^6*5 fi,')' 
       fi,| (|v961^7|)|,       
       if a(v961^a) then v961^b fi,'.F'fi/)/ 
   (if v461^u:'2'then/|\\$A12,12$D\\E|v461^c| (Загл.).F|fi)/ 
   if v200^u:'2'then/"\\$A12,12$D\\E"v200^a" (Загл.).F"fi/ 
   (if p(v922^c)then /|\\$A9,9$D\\E|d922, 
       if p(v922^f) then 
          if v922^f:' 'then 
             if v922^f:','then v922^f else &unifor('G0 'v922^f)', 'v922^?, 
                if a(v922^?) then &unifor('G2 'v922^f) fi fi 
          else v922^f,|, |v922^? fi, 
       else v922^f,|, |v922^? fi, 
       if a(v922^f)and p(v922^u)then 
          if &unifor(|Av922^f#|v922^u*3)<>'' then 
             if &unifor(|Av922^f#|v922^u*3):' 'then 
                if &unifor(|Av922^f#|v922^u*3):','then &unifor(|Av922^f#|v922^u*3) 
                else &unifor('G0 '&unifor(|Av922^f#|v922^u*3))', '&unifor(|Av922^?#|v922^u*3), 
                   if &unifor(|Av922^?#|v922^u*3)=''then &unifor('G2 '&unifor(|Av922^f#|v922^u*3)) fi 
                fi   
             else &unifor(|Av922^f#|v922^u*3), 
                if &unifor(|Av922^?#|v922^u*3)<>''then', '&unifor(|Av922^?#|v922^u*3) fi, 
       fi fi fi,| |v922^c, 
       if a(v922^u) then if a(v922^2) then else| / |v922^g fi fi, 
       if p(v922^u) then 
          if &unifor(|Av922^2#|v922^u*3)=''then else 
             if &unifor(|Av922^g#|v922^u*3)<>''then' / '&unifor(|Av922^g#|v922^u*3), 
       fi fi fi,|F|d922 fi/), 
   (if p(v925^a)then /|\\$A9,9$D\\E|d925, 
       if p(v925^f) then 
          if v925^f:' 'then 
             if v925^f:','then v925^f else &unifor('G0 'v925^f)', 'v925^?, 
                if a(v925^?) then &unifor('G2 'v925^f) fi fi 
          else v925^f,|, |v925^? fi, 
       else v925^f,|, |v925^? fi,| |v925^a,| / |v925^g,|F|d925 
    fi/), 
   (if p(v925^b)then /|\\$A9,9$D\\E|d925, 
       if p(v925^f) then 
          if v925^f:' 'then 
             if v925^f:','then v925^f else &unifor('G0 'v925^f)', 'v925^?, 
                if a(v925^?) then &unifor('G2 'v925^f) fi fi 
          else v925^f,|, |v925^? fi, 
       else v925^f,|, |v925^? fi,| |v925^b,| / |v925^g,|F|d925 
    fi/), 
   (if p(v925^c)then /|\\$A9,9$D\\E|d925, 
       if p(v925^f) then 
          if v925^f:' 'then 
             if v925^f:','then v925^f else &unifor('G0 'v925^f)', 'v925^?, 
                if a(v925^?) then &unifor('G2 'v925^f) fi fi 
          else v925^f,|, |v925^? fi, 
       else v925^f,|, |v925^? fi,| |v925^c,| / |v925^g,|F|d925 
    fi/), 
   (if p(v481)then /|\\$A9,9$D\\E|d481, 
       if p(v481^z) then &unifor('Av461^x#1')' '&unifor('Av461^c#1'),|. |v481^v,| : |v481^c else 
          if p(v481^?) then &unifor('G0 'v481^x),', 'v481^? else 
             if v481^x:' 'then if v481^x:','then v481^x else &unifor('G0 'v481^x)', '&unifor('G2 'v481^x) fi 
          else v481^x fi fi,|. |d481^x,v481^c,|. |v481^v 
       fi,| : |v481^e,| / |v481^f,|. - |v481^d,| : |v481^g, 
       if s(v481^d,v481^g)<>''then|, |v481^h else|. - |v481^h fi,|. - |v481^4, 
       if p(v481^4)then &unifor('Korg.mnu|4')'.'fi,| : |v481^0*2,|. - |v481^p,|. - ISBN |v481^i,|.F|d481 fi)/ 
   (if v629^a:'1'then/|\\$A9,9$D\\E|v629^b|F|fi)/ 
   if a(v700)then/"\\$A9,9$D\\E"v924" (Др.загл.).F"/
     (if p(v510) and v510^u=''then /|\\$A9,9$D\\E|v510^d|.F| fi)fi/ 
   (if v517^u:'0'then else/|\\$A9,9$D\\E|d517,if v517^u:'2'then v700^a," "v700^d,|, |v700^b' 'fi, 
       if v517^u:'3'then v710^s". ",v710^a,if s(v710^n,v710^c)<>''then' ('v710^n" ; ",v710^c')'fi,". "v710^b, 
          if s(v710^d,v710^f,v710^e)<>''then' ('v710^d" ; ",v710^f,if p(v710^f)then" ; "v710^e else v710^e fi, 
          " / "v710^h," / "v710^i')'fi,". "d710v971^b, 
          if s(v971^d,v971^f,v971^e)<>''then' ('v971^d" ; ",v971^f,if p(v971^f)then" ; "v971^e else v971^e fi, 
          " / "v971^h," / "v971^i')'fi"."d971^b 
       fi,v517^a,| (|v517^t*4|).F|fi)/ 
   "\\$A12,12$D\\E"d454,v454^d,", "v454^e,", "v454^f," "v454^a,". - "v454^p, 
   if p(v454^2)then ". - "v454^2,". - "v454^h,". - "v454^3,". - "v454^4,". - "v454^5 else". - "v454^g,","v454^h fi, 
   " (Кат.ист.).F"d454/ 
   (if v711^u:'2'then/'\\$A9,9$D\\E'v711^a,if p(v711^n)or p(v711^c)then' ('v711^n| ; |,v711^c,')'fi,|. |v711^b'.F'fi/) 
   (if v972^u:'2'then/'\\$A9,9$D\\E'v972^a,if s(v972^d,v972^f,v972^e)<>''then'('v972^d| ; |,v972^f, 
       if p(v972^f)then| ; |v972^e else v972^e fi,| / |v972^h,| / |v972^i')'fi|.|d972^b'F'fi) 
   (if v962^u:'2'then/'\\$A9,9$D\\E'v962^a,if s(v962^n,v962^c)<>''then' ('v962^n| ; |,v962^c')'fi,|, |v962^b, 
       if s(v962^d,v962^f,v962^e)<>''then' ('v962^d| ; |,v962^f, 
          if p(v962^f)then| ; |v962^e else v962^e fi,| / |v962^h,| / |v962^i')'fi|.|d962^b'F'fi) 
   (if v702^u:'2'then/'\\$A9,9$D\\E',v702^a,| |v702^d,|, |v702^g,if a(v702^g)then|, |v702^b fi, 
       if s(v702^1,v702^c,v702^f)<>''then' (',v702^1,if s(v702^1)<>''then| ; |d702^c fi,v702^c, 
          if s(v702^1,v702^c)<>''then| ; |d702^f fi,v702^f,')' 
       fi, 
       if p(v702^4) then' (', 
          if v702^4*4.1:'*' then v702^4*5 else &unifor('Q'v702^4*4.1),v702^4*5 fi,|, |d702^5, 
          if v702^5*4.1:'*' then v702^5*5 else &unifor('Q'v702^5*4.1),v702^5*5 fi,|, |d702^6, 
          if v702^6*4.1:'*' then v702^6*5 else &unifor('Q'v702^6*4.1),v702^6*5 fi, 
       ')' fi,| (|v702^7|)|,'.F'fi)/ 
   (if v600^u:'2'then/'\\$A9,9$D\\E' 
      if p(v600^9) then 
         if v600^9:'1' then v609^a else  &unifor('E'v600^9,v600^a),|, |v600^g 
            if a(v600^g) then if &unifor('F'v600^9,v600^a)<>'' then ', '&unifor('F'v600^9,v600^a) fi fi  
         fi 
       else 
          if v600^a:' 'then 
             if v600^a:','then v600^a else &unifor('G0 'v600^a)', 'v600^g, 
                if a(v600^g) then &unifor('G2 'v600^a) fi fi 
          else v600^a,|, |v600^g fi, 
       fi,| |v600^d, 
       if s(v600^1,v600^c,v600^f)<>''then' (',v600^1,if s(v600^1)<>''then| ; |d600^c fi,v600^c, 
          if s(v600^1,v600^c)<>''then| ; |d600^f fi,v600^f,')' 
       fi,if p(v600^a) then |. |d600^z fi,
       v600^z,| [|v600^:|]|,| : |v600^;,| : |v600^,,| : |v600^<,| (|v600^6|)|,|. |v600^2,|. |v600^5,|, |v600^+,
       if p(v600^b) then', '&unifor('Q'v600^b.1),v600^b*1'.'fi,'F' 
   fi), 
   (if v509^2:'2' then /'\\$A9,9$D\\E' 
       if p(v509) then mhu,v509^g.1,mhl,v509^g*1,| |d509^g,if p(v509^g) then| - |d509^a fi,v509^a, 
          if p(v509^b) and p(v509^x) then| (|v509^f|)|,|. |v509^b,| (|v509^x|)| 
          else |. |v509^b,| (|v509^f|)| 
          fi,|, |v509^h,|, |v509^I,|, |v509^J,| (|v509^c|)|," ("| - |+v509^e|)|  
       fi,|. |d509^l,mhu,v509^l.1,mhl,v509^l*1,|. |v509^n,if v509^2:'1' then '.'fi 'F' 
   fi), 
   (if v601^u:'2' then /'\\$A9,9$D\\E'
    v601^a,
       if a(v601^a) then v601^p,
          if p(v601^n)or p(v601^c) then' ('v601^n| ; |,v601^c,')'fi,|. |v601^l,
          if s(v601^d,v601^f,v601^e)<>''then' ('v601^d| ; |,v601^f,
             if p(v601^f) then| ; |v601^e else v601^e fi,| / |v601^h,| / |v601^i')' 
       fi fi,
       if s(v601^a,v601^p)<>'' then |. |d601^z fi,v601^z,
       | [|v601^:|]|,| : |v601^;,| : |v601^,,| : |v601^<,| (|v601^6|)|,|. |v601^2,|. |v601^5,|, |v601^+,|F|
    fi), 
   (if v46^u:'1'then/'\\$A12,12$D\\E'v46^a| (загл.сер.).|'F'fi)/ 
   (if v225^u:'1'then/'\\$A12,12$D\\E'v225^a| (загл.сер.).|'F'fi) 
   (if v606^u:'1'then/|\\$A12,12$D\\E|v606^a,| --|v606^b,| --|v606^c,| --|v606^d,| --|v606^g,| --|v606^e, 
       | --|v606^o,|, |v606^h,| --|v606^9'F'fi) 
   (if v607^u:'1'then/|\\$A12,12$D\\E|v607^a,| --|v607^b,| --|v607^c,| --|v607^d,| --|v607^g,| --|v607^e, 
      | --|v607^o,|, |v607^h,| --|v607^9'F'fi) 
   (/|\\$A12,12$D\\E|v905^u|F|)/ 
   if v920:'nj'then /'\\$A0,0$B\\','E',v903/'\\$A0,0\\', 
     ref(l("I="v933),v200^a,'F' 
      if p(v200^e) then ' : ' 
         if s(v982^0,v982^9)<>'' or v905^2:'1' or &unifor('Q'v200^e*1.1)<>v200^e*1.1 then v200^e else 
            &unifor('Q'v200^e.1),v200^e*1 
      fi fi, 
        (|. |v923^h,if p(v923^h) then|, |v923^i else |. |v923^i fi,| : |v923^e, 
         |. |v923^k,if p(v923^k) then|, |v923^l else |. |v923^l fi,| : |v923^s, 
         |. |v923^m,if p(v923^m) then|, |v923^n else |. |v923^n fi,| : |v923^v),". - "d110^d, 
        if &unifor('Krksp.mnu|'v110^d)<>''then &unifor('Krksp.mnu|'v110^d)else"Периодичность "v110^d fi)/ 
        v934"г.", 
        if p(v935) then ref(l("I="v933),if p(v210^8) then' 'v210^8' 'else' т.'fi),v935 fi, 
        if p(v936) then ref(l("I="v933),if p(v210^9) then' 'v210^9' 'else' № 'fi),v936 fi, 
   else ,&uf('6!kkkbo'), 
      if a(v463) then,ofizxar,oser,oprimK,oISBNcnK, 
         if v905^l=''and &unifor('IPRIVATE,KKP,')=''then if p(v300)then mhl,(/|\\$A9,6\\|v300|.|),mpl,fi fi 
      else,oistaspK, fi, 
      if p(v541)then/'EПеревод заглавия: F'v541 fi/ 
   fi/ 
   if p(v481)then/'\\$A9,6\\','Приплет.:',&unifor('S0'), 
      (if p(v481)then if &unifor('Av481#2')<>''then if p(v481)then' '&unifor('S1A')'.'fi fi, 
          if p(v481^z) then &unifor('Av461^x#1')' '&unifor('Av461^c#1'),|. |v481^v,| : |v481^c 
          else v481^x| |,v481^c,|. |v481^v fi,| : |v481^e,| / |v481^f,|. - |v481^d,| : |v481^g, 
          if s(v481^d,v481^g)<>''then|, |v481^h else|. - |v481^h fi,|. - |v481^4, 
          if p(v481^4)then &unifor('Korg.mnu|4')'.'fi,| : |v481^0*2,|. - |v481^p,|. - ISBN |v481^i,fi) 
   fi/,!kkkIND, 
   if s(v905^g)<>''or &unifor('IPRIVATE,KKA,')<>'' or 
      s(v905^g)=''and &unifor('IPRIVATE,KKA,')='' and s(v900^c,v900^2,v900^3,v900^4):'b' then mhl, 
      (if p(v331)then/'\\$A9,6\\'v331 fi/),mpl,fi/ 
   if s(v905^r)<>''or &unifor('IPRIVATE,KKR,')<>''then else &uf('6!kkkR') fi, 
   &uf('6!kkkexk'),c54,(if v905.1='^'then else if val(v905^*)>0 then v905^* fi,mpl,fi), 
fi,&unifor('!'),&unifor('+F'),