${(0.  ࠧ᪥ 믫) 
$BEG_SCRIPT
/*
 ⠡楩  ।஢ 믫,  ⮣:
  1.  ⮫  ய 㭪 ࠧ᪨ W_TN()
  2.  ⮫ IdVed ய 㭪 ࠧ᪨:
    *  㤠 믫          return DelPayFromSumExt(Extern_Cod,m1,m2,IdVed);
    *    믫  return AddPayToSumExt(Extern_Cod,m1,m2,Vypl,IdVed);
    *   㬬 믫      DelPayFromSumExt(Extern_Cod,m1,m2,IdVed);AddPayToSumExt(Extern_Cod,m1,m2,Vypl,IdVed);return;
*/
$END_SCRIPT
$}(0.  ࠧ᪥ 믫) 
//------------------------------------------------------- 
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡ 
$(_EQ()) 
  $ 
$_ 
${(5. ⥫ ப ᯨ᪠) 
  $(__,0);  // 0 (1,...) - ⢮ ய᪮ ப 
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ) 
$}(5. ⥫ ப ᯨ᪠) 
${(6. ⥫ ⮫殢 ᯨ᪠) 
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ  
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..) 
$}(6. ⥫ ⮫殢 ᯨ᪠) 
${(7. ਧ  ) 
  $(_," "); // " " (஡) -   㫨, "0" -  
$}(7. ਧ  ) 
${(1.  ᯨ᪠) 
//   ⨬ ਥ 室 ⥪  ᯨ᪠ 
 
$}(1.  ᯨ᪠) 
//${(砫 㬬) 
  #=_(_);     //  砫 㬬 
//$}(砫 㬬) 
&(N,5,0)=0; 
&(N,5,0)=1;                                 // 稪 ࠭ 
#(N,3,0)=_();                      //  ࠭ 
//${( ⠡) 
  #=_(,,)             //   
  #=_(__);                 //  㬬   
//$}( ⠡) 
$                                             //     ⠡ 
  //${(ப ) 
    #=_();                         // ਧ   
    $() 
      #=_(_,,)  //   ப ⠡ 
    $_ 
  //$}(ப ) 
  &=+1; 
  #(N,5,0)=_();                 // 稪 ப   
  $(_GE(+6-)+_EQ(-)) 
    //${(⮣ ) 
      #=_(,_);            //  ⮣  . 
      #=_(__);            //  ⮣  . 
    //$}(⮣ ) 
    ${(3.  ) 
//   ⨬ ਥ 室 ⥪    
 
    $}(3.  ) 
    $(_LT(-)) 
      $_ 
      ${(2.  ) 
//   ⨬ ਥ 室 ⥪   
 
      $}(2.  ) 
      //${( ⠡).   . 
        #=_(,,)             //   
        #=_(__);                 //  㬬 
      //$}( ⠡).   . 
    $_ 
  $_ 
$(_GT(-)) 
//${(⮣ ) 
  #=_(_) 
//$}(⮣ ) 
${(4.  ᯨ᪠) 
//   ⨬ ਥ 室 ⥪   ᯨ᪠ 
 
$}(4.  ᯨ᪠) 
$LF 
 

