if v905^0:'1' then else if v920:'ATHRS' or v920:'ATHRG'then if p(v210^a) then IF (l('!',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor('+B'v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,if p(v210^c)then &unifor('+B'v210^c) fi,if p(v210^d) then &unifor('+B'v210^d)fi,if p(v210^G) then &unifor('+B'v210^G) fi,if p(v210^E) then &unifor('+B'v210^E) fi,if p(v210^o) then &unifor('+B'v210^O) fi,if p(v210^h) then &unifor('B'v210^H) fi,if p(v210^[) then &unifor('B'v210^[) fi,if p(v210^]) then &unifor('B'v210^]) fi,if p(v210^<) then &unifor('B'v210^<) fi,if p(v210^>) then &unifor('B'v210^>) fi,if p(v210^\) then &unifor('B'v210^\) fi,if p(v210^/) then &unifor('B'v210^/) fi,if p(v210^9) then &unifor('+B'v210^9)fi)<=0) or (val(ref(l('!',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor('+B'v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,if p(v210^c)then &unifor('+B'v210^c) fi,if p(v210^d) then &unifor('+B'v210^d)fi,if p(v210^G) then &unifor('+B'v210^G) fi,if p(v210^E) then &unifor('+B'v210^E) fi,if p(v210^o) then &unifor('+B'v210^O) fi,if p(v210^h) then &unifor('B'v210^H) fi,if p(v210^[) then &unifor('B'v210^[) fi,if p(v210^]) then &unifor('B'v210^]) fi,if p(v210^<) then &unifor('B'v210^<) fi,if p(v210^>) then &unifor('B'v210^>) fi,if p(v210^\) then &unifor('B'v210^\) fi,if p(v210^/) then &unifor('B'v210^/) fi,if p(v210^9) then &unifor('+B'v210^9)fi
),mfn))=val(mfn)) THEN '0'ELSE '1 Дублетная
 запись: 'v210^K,| |v210^6,| |v210^W,if a(v210^W) then | |v210^Z fi,if s(v210^1,v210^j,v210^T)<>''then ' (',v210^1,if s(v210^1)<>''then |; |d210^j fi,v210^J,if s(v210^1,v210^J)<>''then |; |d210^t fi,v210^t,'). ' fi,if p(v210^K)then |. |d210^V fi,v210^V,| [|v210^:|]|,| : |v210^;,| : |v210^,| (|v210^.|)|,|. |v210^2,|. |v210^(,|, |v210^+,
if a(v210^[) and a(v210^]) and a(v210^<) and a(v210^>) and a(v210^/) and a(v210^\)then v210^A,|--|v210^b,|--|v210^c,|--|v210^d,|--|v210^g,|--|v210^e,|--|v210^o,|, |v210^h,|--|v210^9 fi,
if p(v210^[) or p(v210^]) or p(v210^<) or p(v210^>) or p(v210^/) or p(v210^\)then v210^a,|, |v210^H,|--|v210^b,if p(v210^[) and a(v210^>) and a(v210^>) and a(v210^/) and a(v210^\) and (p(v210^G) or p(v210^E) or p(v210^O)) then |--|v210^G,|--|v210^E,|--|v210^O,|, |v210^[fi,if a(v210^G) and p(v210^[)then |, |v210^[ fi,|--|v210^c,|, |v210^],|--|v210^D,|, |v210^<,if (a(v210^]) and a(v210^[) and a(v210^<))  or (p(v210^>) or p(v210^/) or p(v210^\)) then |--|v210^G,|, |v210^>,|--|v210^E,|, |v210^\,|--|v210^O,|, |v210^/ fi fi 
,ref(l('!',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor('+B'v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,if p(v210^c)then &unifor('+B'v210^c) fi,if p(v210^d) then &unifor('+B'v210^d)fi,if p(v210^G) then &unifor('+B'v210^G) fi,if p(v210^E) then &unifor('+B'v210^E) fi,if p(v210^o) then &unifor('+B'v210^O) fi,if p(v210^h) then &unifor('B'v210^H) fi,if p(v210^[) then &unifor('B'v210^[) fi,if p(v210^]) then &unifor('B'v210^]) fi,if p(v210^<) then &unifor('B'v210^<) fi,if p(v210^>) then &unifor('B'v210^>) fi,if p(v210^\) then &unifor('B'v210^\) fi,if p(v210^/) then &unifor('B'v210^/) fi,if p(v210^9) then &unifor('+B'v210^9)fi,),' (см. N ',f(val(mfn),0,0),')') 
FI FI FI fi/if v920:'ATHRC'then if p(v210^a) then IF (l(if s(v210^n,v210^c,v210^X,v210^a)<>'' and (not(v210:'^d')) and (not(v210:'^e')) and (not(v210:'^f')) then '!',v210^c,v210^X,if v210^a*6.1<>''then &unifor('B',v210^a) else v210^a fi,if v210^b*6.1<>''then &unifor('B'v210^b)else v210^b fi, else if s(v210^d,v210^f,v210^e)<>''then '!',v210^d,v210^f,v210^e,if v210^a*6.1<>''then &unifor('B'v210^a)else v210^a fi fi fi,if p(v210^K)then &unifor('+B'v210^K) fi,if p(v210^M)then &unifor('+B'v210^M) fi,if p(v210^6)then &unifor('+B'v210^6) fi,if p(v210^Q)then &unifor('+B'v210^Q) fi,if p(v210^T)then &unifor('+B'v210^T) fi,if p(v210^O)then &unifor('+B'v210^O) fi,if p(v210^J) then &unifor('+B'v210^J) fi,if p(v210^0)then &unifor('+B'v210^0) fi,if p(v210^Z)then &unifor('+B'v210^Z) fi,if p(v210^-)then &unifor('+B'v210^-) fi,if p(v210^+) then &unifor('+B'v210^+) fi)<=0) or (val(ref(l(if s(v210^n,v210^c,v210^a)<>'' and (not(v210:'^d')) and (not(v210:'^e')) and (not(v210:'^f')) then '!',v210^c,v210^X,if v210^a*6.1<>''then &unifor('B',v210^a) else v210^a fi,if v210^b*6.1<>''then &unifor('B'v210^b)else v210^b fi, else if s(v210^d,v210^f,v210^e)<>''then '!',v210^d,v210^f,v210^e,if v210^a*6.1<>''then &unifor('B'v210^a)else v210^a fi fi fi, if p(v210^K)then &unifor('+B'v210^K) fi,if p(v210^M)then &unifor('+B'v210^M) fi,if p(v210^6)then &unifor('+B'v210^6) fi,if p(v210^Q)then &unifor('+B'v210^Q) fi,if p(v210^T)then &unifor('+B'v210^T) fi,if p(v210^O)then &unifor('+B'v210^O) fi,if p(v210^J) then &unifor('+B'v210^J) fi,if p(v210^0)then &unifor('+B'v210^0) fi,if p(v210^Z)then &unifor('+B'v210^Z) fi,if p(v210^-)then &unifor('+B'v210^-) fi,if p(v210^+) then &unifor('+B'v210^+) fi),mfn))=val(mfn)) THEN '0'ELSE '1 Ошибка: Дублетная 
запись ' ,v210^a,ref(l(if s(v210^n,v210^c,v210^X,v210^a)<>'' and (not(v210:'^d')) and (not(v210:'^e')) and (not(v210:'^f')) then '!',v210^c,v210^X,if v210^a*6.1<>''then &unifor('B',v210^a) else v210^a fi,if v210^b*6.1<>''then &unifor('B'v210^b)else v210^b fi, else if s(v210^d,v210^f,v210^e)<>''then '!',v210^d,v210^f,v210^e,if v210^a*6.1<>''then &unifor('B'v210^a)else v210^a fi fi fi,if p(v210^K)then &unifor('+B'v210^K) fi,if p(v210^M)then &unifor('+B'v210^M) fi,if p(v210^6)then &unifor('+B'v210^6) fi,if p(v210^Q)then &unifor('+B'v210^Q) fi,if p(v210^T)then &unifor('+B'v210^T) fi,if p(v210^O)then &unifor('+B'v210^O) fi,if p(v210^J) then &unifor('+B'v210^J) fi,if p(v210^0)then &unifor('+B'v210^0) fi,if p(v210^Z)then &unifor('+B'v210^Z) fi,if p(v210^-)then &unifor('+B'v210^-) fi,if p(v210^+) then &unifor('+B'v210^+) fi),' (см. N ',f(val(mfn),0,0),')')  FI FI FI/
if v920:'ATHRA'then if p(v210^a) then IF (l('!',if s(v210^a*23.1)<>''then &unifor('B'v210^a) else v210^a fi,if a(v210^g)then v210^b else &unifor('B'v210^G) fi,v210^1,v210^d,v210^f,if p(v210^K)then &unifor('+B'v210^K) fi,if p(v210^M)then &unifor('+B'v210^M) fi,if p(v210^6)then &unifor('+B'v210^6) fi,if p(v210^Q)then &unifor('+B'v210^Q) fi,if p(v210^T)then &unifor('+B'v210^T) fi,if p(v210^O)then &unifor('+B'v210^O) fi,if p(v210^J) then &unifor('+B'v210^J) fi,if p(v210^0)then &unifor('+B'v210^0) fi,if p(v210^Z)then &unifor('+B'v210^Z) fi,if p(v210^-)then &unifor('+B'v210^-) fi,if p(v210^+) then &unifor('+B'v210^+) fi)<=0) or (val(ref(l('!',if s(v210^a*23.1)<>''then &unifor('B'v210^a) else v210^a fi,if a(v210^g)then v210^b else &unifor('B'v210^G) fi,v210^1,v210^d,v210^f,if p(v210^K)then &unifor('+B'v210^K) fi,if p(v210^M)then &unifor('+B'v210^M) fi,if p(v210^6)then &unifor('+B'v210^6) fi,if p(v210^Q)then &unifor('+B'v210^Q) fi,if p(v210^T)then &unifor('+B'v210^T) fi,if p(v210^O)then &unifor('+B'v210^O) fi,if p(v210^J) then &unifor('+B'v210^J) fi,if p(v210^0)then &unifor('+B'v210^0) fi,if p(v210^Z)then &unifor('+B'v210^Z) fi,if p(v210^-)then &unifor('+B'v210^-) fi,if p(v210^+) then &unifor('+B'v210^+) fi),mfn))=val(mfn)) THEN '0'ELSE '1 Ошиб
ка: Дублетная запись ' v210^a,if p(v210^G)then " "v210^G else " "v210^b fi,ref(l('!',if s(v210^a*23.1)<>''then &unifor('B'v210^a) else v210^a fi,if a(v210^g)then v210^b else &unifor('B'v210^G) fi,v210^1,v210^d,v210^f,if p(v210^K)then &unifor('+B'v210^K) fi,if p(v210^M)then &unifor('+B'v210^M) fi,if p(v210^6)then &unifor('+B'v210^6) fi,if p(v210^Q)then &unifor('+B'v210^Q) fi,if p(v210^T)then &unifor('+B'v210^T) fi,if p(v210^O)then &unifor('+B'v210^O) fi,if p(v210^J) then &unifor('+B'v210^J) fi,if p(v210^0)then &unifor('+B'v210^0) fi,if p(v210^Z)then &unifor('+B'v210^Z) fi,if p(v210^-)then &unifor('+B'v210^-) fi,if p(v210^+) then &unifor('+B'v210^+) fi),' (см. N ',f(val(mfn),0,0),')') 
FI FI FI/