if v905^0:'1' then else if v920:'ATHRS'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^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^9) then &unifor('+B'v210^9)fi
),mfn))=val(mfn)) THEN '0'ELSE '1 Дублетная
 запись: 'v210^A," - "v210^b," - "v210^c," - "v210^d," - "v210^G," - "v210^E," - "v210^O," - "v210^H," - "v210^9,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^9) then &unifor('+B'v210^9)fi,),' (см. N ',f(val(mfn),0,0),')') 
FI FI FI Fi/if v905^0:'1' then else 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,&unifor("B"v210^K),&unifor("B"v210^M),&unifor("B"v210^6),&unifor("B"v210^Q),&unifor("B"v210^T),&unifor("B"v210^O),&unifor("B"v210^J),&unifor("B"v210^0) 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,&unifor("B"v210^K),&unifor("B"v210^M),&unifor("B"v210^6),&unifor("B"v210^Q),&unifor("B"v210^T),&unifor("B"v210^O),&unifor("B"v210^J),&unifor("B"v210^0) fi),mfn))=val(mfn)) THEN '0'ELSE '1 Ошибка: Дублетная 
запись ' ,v210^a,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 ,&unifor("B"v210^K),&unifor("B"v210^M),&unifor("B"v210^6),&unifor("B"v210^Q),&unifor("B"v210^T),&unifor("B"v210^O),&unifor("B"v210^J),&unifor("B"v210^0)fi),' (см. N ',f(val(mfn),0,0),')')  FI 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,&unifor("B"v210^K),&unifor("B"v210^M),&unifor("B"v210^6),&unifor("B"v210^Q),&unifor("B"v210^T),&unifor("B"v210^O),&unifor("B"v210^J),&unifor("B"v210^0),&unifor("B"v210^Z),&unifor("B"v210^5),&unifor("B"v210^+))<=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,&unifor("B"v210^K),&unifor("B"v210^M),&unifor("B"v210^6),&unifor("B"v210^Q),&unifor("B"v210^T),&unifor("B"v210^O),&unifor("B"v210^J),&unifor("B"v210^0),&unifor("B"v210^Z),&unifor("B"v210^5),&unifor("B"v210^+)),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,&unifor("B"v210^K),&unifor("B"v210^M),&unifor("B"v210^6),&unifor("B"v210^Q),&unifor("B"v210^T),&unifor("B"v210^O),&unifor("B"v210^J),&unifor("B"v210^0),&unifor("B"v210^Z),&unifor("B"v210^5),&unifor("B"v210^+)),' (см. N ',f(val(mfn),0,0),')') 
FI FI FI/