//  ࠢ, ॥  ⮪  ।   
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ()) 
  $
$_
${(1. ன )
  $(_," ");    // " " (஡) -   㫨, "0" - 
  &(N,4,0)=2;            // ⠢ &(N,4,0)=2   㬬  
  $(__,0); // 0 (1,...) - ⢮ ய᪮ ப
  $(_,"-");     // ᨬ  મ: "-" ( .ᨬ)
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ 
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..)
$}(1. ன )
${(2. )
  #(N,2,0)=_(15,9,65,15, ?, ࠢ, , ⮪);
  $(_EQ(-27))
    $
  $_
$}(2. )
${(3.  ।)
  #(C,6,0)=(,,,,);
  #(N,2,0)=_(,50);   // 頥 ᫮ ப
  #1(N,50,0)=_(0);
  $(_GT(-1))
    #2(N,50,0)=_(1);
  $
    #2(N,50,0)=R_String();
  $_
  $(_GT(-2))
    #3(N,50,0)=_(2);
  $
    #3(N,50,0)=R_String();
  $_
  #=_();
  #(C,2,0)=R_String();    //   ᨬ   ᯥ樨
  #(C,45,0)=(,,,,);
  #(C,35,0)=(,,,,);
  #(C,35,0)=(,,,,);
  #(C,45,0)=(,,,,);
  #(C,8,0)=(,,,,);
  #(C,8,0)=(,,,,);
  #(C,8,0)=(,-,,,);
$}(3.  ।)
  $(_EQ()) //   ࠢ
    &(N,5,0)=0;
    $                                      //     ⠡
      #=_();                       // ਧ  
      $()
${(4. ஢ )
        #(C,20,0)=_(INNFL,);      //  䨧᪮ 
        #(C,10,0)=_(NI_FL,);    //   䨧᪮ 
        #I0(C,19,0)=_(F,);       #I1(C,13,0)=_(I,);
        #I2(C,15,0)=_(O,);       #(C,4,0)=_(COUNTRY,);
        #(C,6,0)=_(INDEX,);    #(C,2,0)=_(REGION,);
        #(C,40,0)=_(RAION,);  #(C,30,0)=_(GOROD,);
        #(C,35,0)=_(NASP,);  #(C,45,0)=_(UL,);
        #(C,8,0)=_(DOM,);     #(C,8,0)=_(KORP,);
        #(C,8,0)=_(KVART,);   #(C,3,0)=_(DOC_CODE,);
        #(C,8,0)=_(SER_PS,);  #(C,20,0)=_(NOM_PS,);
        #DB(C,10,0)=_(B_DATE,);
        #(C,4,0)=_(DB,1,.);#(C,4,0)=_(DB,2,.);
        #(C,4,0)=_(DB,3,.);
        #(C,3,0)=_(STATUS,);   #(N,3,0)=_(MR,);
        #SIM(C,12,0)=_(PERIOD,);
        #PER(C,35,0)=_(010203040506070809101112,@SIM        ,,*,2);
$}(4. ஢ )
${(6.  6- ࠧ ࠢ)
        // ᭮ 室  ---------------------------------------------------
        #PRIM(N,10,@)=_(PRIM,);     // ᭮ 室   ᪨
        #PRIMS(N,10,0)=_(PRIMS,);      //  㬬 室
        #PRIMTC(N,10,0)=_(PRIMTC,);    //   ᭮ 室   (᫥)
        #PRIMFC(N,10,0)=_(PRIMFC,);    //   ᭮ 室   (㤥ঠ)
        #PRIMTF(N,9,0)=_(PRIMTF,);    //   ᭮ 室    (᫥)
        #PRIMFF(N,9,0)=_(PRIMFF,);    //   ᭮ 室    (㤥ঠ)
        // / ----------------------------------------------------------------
        #RK(N,10,@)=_(RK,);         // 㬬 /   ᪨
        #RKS(N,10,0)=_(RKS,);          //  㬬 /
        #RKTC(N,10,0)=_(RKTC,);        //   /          (᫥)
        #RKFC(N,10,0)=_(RKFC,);        //   /          (㤥ঠ)
        #RKTF(N,9,0)=_(RKTF,);        //   /           (᫥)
        #RKFF(N,9,0)=_(RKFF,);        //   /           (㤥ঠ)
        // 룮  ------------------------------------------------------------
        #PROFIT(N,10,@)=_(PROFIT,);   // 㬬 룮   ᪨
        #PROFITS(N,10,0)=_(PROFITS,);    //  㬬 룮
        #PROFITTC(N,10,0)=_(PROFITTC,);  //   룮       (᫥)
        #PROFITFC(N,10,0)=_(PROFITFC,);  //   룮       (㤥ঠ)
        #PROFITTF(N,9,0)=_(PROFITTF,);  //   룮        (᫥)
        #PROFITFF(N,9,0)=_(PROFITFF,);  //   룮        (㤥ঠ)
        // ঠ     ᪠ -----------------------------
        #TAXDEBTC(N,10,0)=_(TAXDEBTC,);  // , ।  ᪠    
        #TAXDEBTF(N,10,0)=_(TAXDEBTF,);  // , ।  ᪠    
        #TAXREPC(N,10,0)=_(TAXREPC,);    // , 饭    
        #TAXREPF(N,10,0)=_(TAXREPF,);    // , 饭    
        //--------------------------------------------------------------------
        #DISW(N,10,@)=_(DISW,);
        #DEDW(N,10,@)=_(DEDW,);
        //--------------------------------------------------------------------
$}(6.  6- ࠧ ࠢ)
${(5.  3,4,5- ࠧ ࠢ)
        #MONTHINC(C,255,0)=_(MONTHINC,);
        &Z(V,2,0)=1;
        $
          #SFD@Z(N,10,@)=_(MONTHINC,Z);
          &Z=Z+1;
        $ (_GE(12-Z))
        #(C,178,0)=_(NEDV,);
        #(N,2,0)=_(,70);
        #1(N,70,0)=_(0);
        $(_GT(-1))
          #2(N,70,0)=_(1);
        $
          #2(N,70,0)=R_String();
        $_
        #=_();
        &Y(V,2,0)=0;
        $
          &C@Y(N,4,0)=0;      &E@Y(N,4,0)=0;       &D@Y(N,4,0)=0;  &TT@Y(N,4,0)=0;
          &IS@Y(N,10,@)=0; &DISS@Y(N,10,@)=0; &DED@Y(N,10,@)=0;
          &Y=Y+1;
        $ (_GE(16-Y))      //  横
        &DW(N,10,@)=0.;
        &X(V,2,0)=0;
        #INCCODE(C,255,0)=_(INCCODE,);
        $
          #(C,255,0)=_(INCCODE,X+1,2);
          #C(N,4,0)=_(,1);        //  室
          #IS(N,10,@)=_(,2);   // 㬬 室
          #D(N,4,0)=_(,3);        //  ᪨
          #DISS(N,10,@)=_(,4); // 㬬 ᪨
          &C@X=C;                  //  室
          $ (1-_EQ(C))
            &C@X(V,4,0)=C;
          $_
          &D@X=D;                  //  ᪨
          $ (1-_EQ(D))
            &D@X(V,2,0)=D;
          $_
          &IS@X=IS;                // 㬬 室
          &DISS@X=DISS;            // 㬬 ᪨
          $ (_EQ(D)*(1-_EQ(C)))
            #D@X(C,4,0)=R_String(-);              //  ᪨  㫥 
            #DISS@X(C,10,0)=R_String(       -  ); // 㬬 室   㫥 
          $_
          &X=X+1;
        $ (_GT(8-X))
        &X(V,2,0)=0;
        #DEDUCTION(C,255,0)=_(DEDUCTION,);
        $
          #(C,255,0)=_(DEDUCTION,X+1,2);
          #E(N,4,0)=_(,1);           //  
          #DISS(N,10,@)=_(,2);    // 㬬 ᪨
          &DED@X=DISS;
          &E@X=E;                  //  
          $ (1-_EQ(E))
            &E@X(V,2,0)=E;
          $_
          &X=X+1;
        $ (_GT(9-X))
$}(5.  3,4,5- ࠧ ࠢ)
        #DOCDATE(C,255,0)=_(DOCDATE,);
        #YEAR(C,4,0)=_(YEAR,);
        #(V,2,0)=_(DOCDATE,1,.);#(V,2,0)=_(DOCDATE,2,.);
        #(V,4,0)=_(DOCDATE,3,.);
        #FREETAX(C,1,0)=_(FREETAX,);
        #DOCNUM(C,8,0)=_(DOCNUM,);
${(7. ଠ ࠢ. )
          ਫ N 3   樨    29  1995 . N 35

    @        @YEAR  N @DOCNUM
 1.1 1.2 ⠪ ⥫䮭Ŀ
 @                /@               @                      
 1.3  ।Ĵ
 @1                                                                   
 @2                                                                   
 @3                                                                   
 2.1 2.2  Ĵ
 @                   @                                       
 2.3 ,,⢮Ĵ
 @I0                          @I1                   @I2                   
 2.4 2.5 , 2.6 ᫮Ĵ
 㬥  @@     @                ஦@  @  @   
 2.7 Ĵ
           @ @    @   @                                       
 Ãதᥫ 㭪Ĵ
 @                             @                                  
 Ó¤ªª࠴
 @                                           @    @    @    
 2.8 2.9 2.10  ਮĴ
            @ࠡ   @     @PER                                
 Ĵ
 3   㬬       㬬        㬬       㬬      
        室         ᪨          室         ᪨     
    Ĵ Ĵ
    @C00@IS00      @D00@DISS00     @C04@IS04      @D04@DISS04    
    @C01@IS01      @D01@DISS01     @C05@IS05      @D05@DISS05    
    @C02@IS02      @D02@DISS02     @C06@IS06      @D06@DISS06    
    @C03@IS03      @D03@DISS03     @C07@IS07      @D07@DISS07    
 şࠫŌ५Ĵ
 4  @SFD01    @SFD02    @SFD03     @SFD04     @SFD05     @SFD06     
    ÈŀőŎōńĴ
    @SFD07    @SFD08    @SFD09     @SFD10     @SFD11     @SFD12     
 Ĵ
 5    㬬            㬬             㬬           
    ĴĴĴ
    @E00 @DED00         @E03 @DED03          @E06 @DED06          
    @E01 @DED01         @E04 @DED04          @E07 @DED07          
    @E02 @DED02         @E05 @DED05          @E08 @DED08          
    Ĵ
 @1                                                                   
 @2                                                                   
 㬬 室  䥤.  ..䥤.
 6   ᫥.ঠ.ň᫥.ঠ.Ĵ
   6.1@PRIM       @PRIMS     @PRIMTF  @PRIMFF  @PRIMTC   @PRIMFC   
   6.2@RK         @RKS       @RKTF    @RKFF    @RKTC     @RKFC     
   6.3@PROFIT     @PROFITS   @PROFITTF@PROFITFF@PROFITTC @PROFITFC 
   6.4 㬬 , ।   䥤. ¢  .䥤.
   ᪠  ᭠ᯥ       @TAXDEBTF       @TAXDEBTC       
   6.5 㬬      䥤. Ţ  .䥤.
     室 ⭮     @TAXREPF        @TAXREPC        
 ᫮¬£Ĵ
 @            @                ⠢@   @   @   
                     
                     
 
$LF
$}(7. ଠ ࠢ. )
      $_            //  ஢ન 롮 
    &=+1;
    $(_GT(-))
    $ //   ࠢ,  ᭮      ⮪  05.11.98 16:18 Suetov
  $_          // _EQ()  ஢ન ०  ࠢ.
${(8. . )
//
//        
//
  $(_EQ(-1))  // ஢ઠ, ࠭  ०  ॥.
    #(N,2,0)=_(,50);   // 颥 ᫮ ப
    #1(N,50,0)=_(0);
    $(_GT(-1))
      #2(N,50,0)=_(1);
    $
      #2(N,50,0)=R_String();
    $_
    $(_GT(-2))
      #3(N,50,0)=_(2);
    $
      #3(N,50,0)=R_String();
    $_
    #=_();
    #(N,2,0)=_(,50);   // 颥 ᫮ ப
    #1(N,50,0)=_(0);
    $(_GT(-1))
      #2(N,50,0)=_(1);
    $
      #2(N,50,0)=R_String();
    $_
    $(_GT(-2))
      #3(N,50,0)=_(2);
    $
      #3(N,50,0)=R_String();
    $_
    #=_();
    #YEAR(C,4,0)=_(YEAR,0);
        ਫ N 10   樨    29  1995 . N 35

                                  
                   @YEAR 
 Ŀ
                              ࠢ⥫                            
 Ĵ
      @1                                            
  ।/    @2                                            
   ࠡ⮤⥫@3                                            
 Ĵ
   ࠡ⮤⥫@                                              
 Ĵ
  ⮢        @1                                            
             @2                                            
  ।     @3                                            
 Ĵ
  䮭         @                                             
 
 Ŀ
                              ⥫                             
 Ĵ
            @                                            
 Ĵ
  ⮢        @1                                            
             @2                                            
               @3                                            
 Ĵ
  䮭         @                                             
 
    &(N,5,0)=0;                                  // 稪 ᥩ
    &(N,5,0)=1;                                 // 稪 ࠭
    #(N,3,0)=_();                      //  ࠭
    &(N,5,0)=0;
    &(N,5,0)=1;
    $
      #=_();
      $()
        $()
          #=_(,,)           //  
          #=_(__);               //  㬬  
          &(N,5,0)=0;
        $_
        #=_(_,,)  //   ப ⠡
        &=+1;
      $_
      &=+1;
      #(N,5,0)=_();                 // 稪 ப  
      $(_GE(+6-)+_EQ(-))
        #=_(,_);            //  ⮣  .
        #=_(__);            //  ⮣  .
        $(_LT(-))
          $_
          &(N,5,0)=1;
        $_
      $_
    $(_GT(-))
    #=_(_,);
    $(_GE(+12-))
      $_
    $_

    ᥣ ।⠢ 㬥⮢ @

    @                                    @

    @                                 @

     ।⠢   "____"__________"199__.

     ਭ        "____"__________"199__.
    $
  $_
$}(8. . )
${(9. ⮪. )
//
//        ....  N 11
//
  $(_EQ(-2))  // ࠭ ०  ⮪ (ਫ N 11)
    #(N,2,0)=_(,50);   // 颥 ᫮ ப
    #1(N,50,0)=_(0);
    $(_GT(-1))
      #2(N,50,0)=_(1);
    $
      #2(N,50,0)=R_String();
    $_
    $(_GT(-2))
      #3(N,50,0)=_(2);
    $
      #3(N,50,0)=R_String();
    $_
    #=_();
    #(N,2,0)=_(,50);   // 颥 ᫮ ப
    #1(N,50,0)=_(0);
    $(_GT(-1))
      #2(N,50,0)=_(1);
    $
      #2(N,50,0)=R_String();
    $_
    $(_GT(-2))
      #3(N,50,0)=_(2);
    $
      #3(N,50,0)=R_String();
    $_
    #=_();
    #YEAR(C,4,0)=_(YEAR,0);
       ਫ N 11  樨    29  1995 . N 35
          ( ﬨ  ﬨ N 6, ᥭ묨
          ਪ ᭠㦡   26.02.98 n -3-08/28)

                  ________  ____.____.9__ .
                @YEAR 
                            
 Ŀ
                              ࠢ⥫                            
 Ĵ
      @1                                            
  ।/    @2                                            
   ࠡ⮤⥫@3                                            
 Ĵ
   ࠡ⮤⥫@                                              
 Ĵ
  ⮢        @1                                            
             @2                                            
  ।     @3                                            
 Ĵ
  䮭         @                                             
 
 Ŀ
                              ⥫                             
 Ĵ
            @                                            
 Ĵ
  ⮢        @1                                            
             @2                                            
               @3                                            
 Ĵ
  䮭         @                                             
 
    &(N,5,0)=0;                                  // 稪 ᥩ
    &(N,5,0)=1;                                 // 稪 ࠭
    #(N,3,0)=_();                      //  ࠭
    &(N,5,0)=0;
    &(N,5,0)=1;
    $
      #=_();
      $()
        &=+1;
      $_
      &=+1;
    $(_GT(-))

   ᥣ 㯨 㬥⮢ @
   ( ॥  N ___  "__" _______________ 199_ ) 
                      ( ।⠢ ॥  ) 
   
     ਭ  ࠡ                           

   祭   㬥⮢,      襤   㠫   ஫  
   饭 ࠢ⥫ ( ࠢ):
   
   
   
   
   
   
   
   
   
   
   
   

    ࠡ⮤⥫:                    :
   _______________________________    _______________________________
           ()                            ()
   __________  (_________________)    __________  (_________________)
   ()   (䠬, 樠)    ()   (䠬, 樠)
    $_
    $
  $_  // _EQ(-2)
$}(9. ⮪. )
$
