//  ࠢ, ॥  ⮪  ।   
#=_(0);
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
${(1. ன )
  $(_," ");    // " " (஡) -   㫨, "0" - 
  &(N,4,0)=2;            // ⠢ &(N,4,0)=2   㬬  
  &1(N,5,0)=2;           // ⠢ &1(N,5,0)=2    㬬  
  &2(N,5,0)=2;           // ⠢ &2(N,5,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,.);
        #(N,3,0)=_(STATUS,);   #(N,3,0)=_(MR,);
        #SIM(C,12,0)=_(PERIOD,);
        #PER(C,35,0)=_(010203040506070809101112,@SIM        ,,*,2);
$}(4. ஢ )
${(9. 㬬  )
  #STRAHN(C,14,0)=_(FCstrah_n,);
  #PFBASE(N,14,2)=_(PFBASE,);
  #PFTAX(N,14,2)=_(PFTAX,);
  #SSBASE(N,14,2)=_(SSBASE,);
  #SSTAX(N,14,2)=_(SSTAX,);
  #MSBASE(N,14,2)=_(MSBASE,);
  #MSTAX(N,14,2)=_(MSTAX,);
  #TMSBASE(N,14,2)=_(TMSBASE,);
  #TMSTAX(N,14,2)=_(TMSTAX,);
$}(9. 㬬  )
${(6.  6- ࠧ ࠢ)
        // ᭮ 室  ---------------------------------------------------
        #PRIM(N,13,@)=_(PRIM,);     // ᭮ 室   ᪨
        #PRIMS(N,13,@1)=_(PRIMS,);  //  㬬 室
        #PRIMTF(N,11,@2)=_(PRIMTF,);    //   ᭮ 室    (᫥)
        #PRIMFF(N,11,@2)=_(PRIMFF,);    //   ᭮ 室    (㤥ঠ)
        // / ----------------------------------------------------------------
        #RK(N,13,@)=_(RK,);         // 㬬 /   ᪨
        #RKS(N,13,@1)=_(RKS,);          //  㬬 /
        #RKTF(N,11,@2)=_(RKTF,);        //   /           (᫥)
        #RKFF(N,11,@2)=_(RKFF,);        //   /           (㤥ঠ)
        // 룮  ------------------------------------------------------------
        #PROFIT(N,13,@)=_(PROFIT,); // 㬬 룮   ᪨
        #PROFITS(N,13,@1)=_(PROFITS,);  //  㬬 룮
        #PROFITTF(N,11,@2)=_(PROFITTF,);//   룮        (᫥)
        #PROFITFF(N,11,@2)=_(PROFITFF,);//   룮        (㤥ঠ)
        // ঠ     ᪠ -----------------------------
        #TAXDEBTF(N,11,@2)=_(TAXDEBTF,);   // , ।  ᪠    
        #TAXREPF(N,11,@2)=_(TAXREPF,);     // , 饭    
        #RECKONING(N,11,@2)=_(RG,); //     
        #UPREDTAX(N,11,@2)=_(U_PREDTAX,); //      
        #ZPREDTAX(N,11,@2)=_(Z_PREDTAX,); //      
        &TAXTF(N,11,@2)=PRIMTF+RKTF+PROFITTF-RECKONING;   //VIB
        &TAXFF(N,11,@2)=PRIMFF+RKFF+PROFITFF;
        $(_GT(TAXTF-TAXFF))
          &DEBN(N,11,@2)=TAXTF-TAXFF;   //   ⥫騪
          &DEBA(N,11,@2)=0;
        $
          &DEBA(N,11,@2)=TAXFF-TAXTF;   //   ⮬
          &DEBN(N,11,@2)=0;
        $_
        //--------------------------------------------------------------------
        #PROFITDIV(N,13,@)=0;
        #PROFITTFDIV(N,11,@2)=0;
        #PROFITFFDIV(N,11,@2)=0;
        #PROFITNR(N,13,@)=0;
        #PROFITTFNR(N,11,@2)=0;
        #PROFITFFNR(N,11,@2)=0;
        $(_EQ(-1.))
          &PROFITDIV=PROFIT;
          &PROFITTFDIV=PROFITTF;
          &PROFITFFDIV=PROFITFF;
        $
          &PROFITNR=PROFITS;      //VIB 3.2.1.1
          &PROFITTFNR=PROFITTF;
          &PROFITFFNR=PROFITFF;
        $_
$}(6.  6- ࠧ ࠢ)
${(5.  3,4,5- ࠧ ࠢ)
        #ME1(N,2,0)=_(EndMonth,);
        #ME2(N,2,0)=(0,ME1);//   ਮ
        #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,12,@)=0; &DISS@Y(N,7,@)=0;  &DED@Y(N,8,@)=0;
          &E@Y(N,4,0)=0;
          &A@Y(N,4,0)=0;      &AS2@Y(N,11,@)=0;
          &B@Y(N,4,0)=0;      &BS2@Y(N,11,@)=0;
          &F@Y(N,4,0)=0;      &DIS2@Y(N,7,@)=0;
          &I@Y(N,4,0)=0;      &IS@Y(N,11,@)=0;
          &J@Y(N,4,0)=0;      &JS@Y(N,11,@)=0;
          &K@Y(N,4,0)=0;      &KS@Y(N,7,@)=0;
          &L@Y(N,4,0)=0;      &LS@Y(N,11,@)=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,12,@)=_(,2);   // 㬬 室
          #D(N,4,0)=_(,3);        //  ᪨
          #DISS(N,7,@)=_(,4); // 㬬 ᪨
          &C@X=C;                  //  室
          $ (1-_EQ(C))
            &C@X(V,4,0)=C;
          $_
          &D@X=D;                  //  ᪨
          $ (1-_EQ(D))
            &D@X(V,3,0)=D;
          $_
          &IS@X=IS;                // 㬬 室
          &DISS@X=DISS;            // 㬬 ᪨
          $ (_EQ(D)*(1-_EQ(C)))
            #D@X(C,4,0)=R_String(-);              //  ᪨  㫥 
            #DISS@X(C,7,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,7,@)=_(,2);    // 㬬 ᪨
          &DED@X=DISS;
          &E@X=E;                  //  
          $ (1-_EQ(E))
            &E@X(V,3,0)=E;
          $_
          &X=X+1;
        $ (_GT(9-X))
        //  室  ⮢  ⠡ N2
        &X(V,2,0)=0;
        #INCCODE2(C,255,0)=_(INCCODE2,);
        $
          #(C,255,0)=_(INCCODE2,X+1,2);
          #A(N,4,0)=_(,1);         //  室
          #AS2(N,10,@)=_(,2);   // 㬬 室
          &A@X=A;                                //  室
          $ (1-_EQ(A))
            &A@X(V,4,0)=A;
          $_
          &AS2@X(N,11,@)=AS2;                            // 㬬 室
          &X=X+1;
        $ (_GT(8-X))
        //  室  ⠬  ⠡ N2
        &X(V,2,0)=0;
        #INCCODE2D(C,255,0)=_(INCCODE2D,);
        $
          #(C,255,0)=_(INCCODE2D,X+1,2);
          #B(N,4,0)=_(,1);        //  室
          #BS2(N,10,@)=_(,2);  // 㬬 室
          #F(N,4,0)=_(,3);        //  ᪨
          #DIS2(N,7,@)=_(,4); // 㬬 ᪨
          &B@X=B;                  //  室
          $ (1-_EQ(B))
            &B@X(V,4,0)=B;
          $_
          &F@X=F;                  //  ᪨
          $ (1-_EQ(F))
            &F@X(V,3,0)=F;
          $_
          &BS2@X=BS2;                // 㬬 室
          &DIS2@X=DIS2;          // 㬬 ᪨
          &X=X+1;
        $ (_GT(8-X))
        $(_EQ(-2))
          //  室  ⮢  ⠡ N3
          &X(V,2,0)=0;
          #INCCODENR(C,255,0)=_(INCCODENR,);
          $
            #(C,255,0)=_(INCCODENR,X+1,2);
            #L(N,4,0)=_(,1);         //  室
            #LS(N,10,@)=_(,2);    // 㬬 室
            &L@X=L;                                //  室
            $ (1-_EQ(L))
              &L@X(V,4,0)=L;
            $_
            &LS@X(N,11,@)=LS;                   // 㬬 室
            &X=X+1;
          $ (_GT(8-X))
          //  室  ⠬  ⠡ N3
          &X(V,2,0)=0;
          #INCCODENRD(C,255,0)=_(INCCODENRD,);
          $
            #(C,255,0)=_(INCCODENRD,X+1,2);
            #J(N,4,0)=_(,1);       //  室
            #JS(N,10,@)=_(,2);  // 㬬 室
            #K(N,4,0)=_(,3);       //  ᪨
            #KS(N,7,@)=_(,4);   // 㬬 ᪨
            &J@X=J;                              //  室
            $ (1-_EQ(J))
              &J@X(V,4,0)=J;
            $_
            &K@X=K;                              //  ᪨
            $ (1-_EQ(K))
              &K@X(V,3,0)=K;
            $_
            &JS@X=JS;                            // 㬬 室
            &KS@X=KS;                            // 㬬 ᪨
            &X=X+1;
          $ (_GT(8-X))
        $_
        &X(V,2,0)=1; &Y(V,2,0)=1; &Z(V,2,0)=1; &W(V,2,0)=0;
        $ //    㬬 室  ᪨
          &Z=1; &CDI@Y(N,4,0)=0; &UD(N,4,0)=0;
          $
            &SDI@Y@Z(N,10,@)=0.;
            &ZDI01@Z(N,10,@)=0.;
            &Z=Z+1;
          $(_LE(Z-13))
          &Y=Y+1;
        $(_LE(Y-10))
        &X=1; &Y=1; &FLAGUD(V,2,0)=0;
        $
          &Z=1; &FLAG(V,2,0)=0;
          $
            #DINCOME(C,255,0)=_(DI@Z,);
            #(C,255,0)=_(DINCOME,X,2);
            #CDI(N,4,0)=_(,1);        //  室
            #SDI@Z(N,10,@)=_(,2);  // 㬬 室
            $ ((1-_EQ(SDI@Z))*_GE(ME2-Z))       //  㦭 :
              &FLAG=1;                              //  㫥 㬬 室
              &FLAGUD=1;                            //  㫥 㬬 室
            $_
            &Z=Z+1;
          $(_LE(Z-12))
          $(1-_EQ(FLAG))
            &Z=1;  &CDI@Y=CDI; &UD=CDI*_EQ(Y-1);
            &W=0; &SDI00(N,10,@)=0;
            $
              &W=Z-1;
              $(_GE(ME2-Z))
                &SDI@Y@Z=SDI@Z-SDI@W;
                &ZDI01@Z=(SDI@Z-SDI@W)*_EQ(Y-1);
              $_
              &Z=Z+1;
            $(_LE(Z-12))
            &SDI@Y@Z=SDI12;
            &Y=Y+1;
          $_
          &X=X+1;
        $(_LE(X-20))
        &FLAGUD=_EQ(UD)*_EQ(1-FLAGUD);
$}(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. ଠ ࠢ. )
   ࠢ  室 䨧᪮  Ŀ        Ŀ
    @YEAR    .  N@DOCNUM      @ ଠ 2-
1.1.  / 1.2. ⠪ ⥫䮭Ŀ
@                /@            @                              
1.3.  ࣠樨 / , , ⢮ . ।.Ĵ
@1                                                                        
@2                                                                        
@3                                                                        
1.4. 1.5.  (1 - १, 2 -Ĵ
@                         १)                   @            
1.6. , , ⢮Ĵ
@I0                          @I1                   @I2                        
1.7.  -1.8. , 2.6 ᫮Ĵ
             @@     @       ஦@  @  @          
1.10. c. . ॣŐ Ĵ
 ⥫-@      @   @         @                              
ڃத  ᥫ 㭪 Ĵ
@                            @                                       
Ó Ĵ
@                                          @    @      @       
2.1. 㬬  㬬   㬬  㬬  Ĵ
 2  @C00@IS00          @D00@DISS00@C03@IS03         @D03@DISS03  
Ĵ  @C01@IS01          @D01@DISS01@C04@IS04         @D04@DISS04  
   .@C02@IS02          @D02@DISS02@C05@IS05         @D05@DISS05  
13%şࠫ ŀ५ Ĵ
   2.2.@SFD01     @SFD02     @SFD03     @SFD04     @SFD05    @SFD06    
   .ÈŀőŎōńĴ
   .@SFD07     @SFD08     @SFD09     @SFD10     @SFD11    @SFD12    
2.2.1.  şŔࠫŌŀ५ŌňĴ
..@ZDI0101   @ZDI0102   @ZDI0103   @ZDI0104   @ZDI0105  @ZDI0106  
  ÈŀőŎōńĴ
@UD     @ZDI0107   @ZDI0108   @ZDI0109   @ZDI0110   @ZDI0111  @ZDI0112  
2.3.Ŋ   㬬   㬬     㬬     㬬 Ĵ
⠭.@E00  @DED00    @E02  @DED02    @E04  @DED04   @E06  @DED06  
  @E01  @DED01    @E03  @DED03    @E05  @DED05   @E07  @DED07  
2.4.ᯮ2.4.1.Ď 2.4.2.Ď.2.4.3..2.4.4.㤥.Ĵ
.易.   @PRIM           @PRIMS          @PRIMTF       @PRIMFF       
3.1.1. 3.1.2. 㬬  3.1.3. .3.1.4. 㤥. Ĵ
 3 .@PROFITDIV     @RECKONING          @PROFITTFDIV   @PROFITFFDIV    
Ĵ3.2.㬬 室㬬 室㬬 ⠴
30%室 @L00@LS00               @J00@JS00            @K00@KS00       
   १-@L01@LS01               @J01@JS01            @K01@KS01       
   ⮢ @L02@LS02               @J02@JS02            @K02@KS02       
   3.2.1.ᯮ. 3.2.1.1.㬬 . 3.2.1.2. .. 3.2.1.3. 㤥..
   .易.  @PROFITNR         @PROFITTFNR         @PROFITFFNR        
4.1 㬬 室㬬 室 㬬 室 㬬 
 4 @A00@AS200       @A02@AS202       @B00@BS200       @F00@DIS200
Ĵ@A01@AS201       @A03@AS203       
   4.2.4.2.1.㬬 .4.2.2...4.2.3.Ĉ4.2.4.㤥.Ŀ
35%ᯮ.@RK             @RKS            @RKTF           @RKFF          
5.1. 㬬 5.2.  㬬 Ĵ
 ᫥ @TAXTF           㤥ঠ         @TAXFF            
5.3. 㬬  -5.4. 㬬, ⥭ Ĵ
     @UPREDTAX            @ZPREDTAX         
5.5.    5.6.    Ĵ
⥫騪     @DEBN        ⮬     @DEBA             
5.7.㬬 , -
  ᪠    @TAXDEBTF   
 Ŀ
 .⠳ @                ⠢@   @   @       
(⥫.)
   ..             

$LF
//$(_EQ(1-FLAGUD))
$(_EQ(FLAGUD))
&Z(V,2,0)=0;
$
  &Z=Z+1;
  &CDI@Z=0;
  &SDI01@Z=0;
$(_GT(12-Z))
$_
 ࠢ  室 䨧᪮  Ŀ        Ŀ        2
  @YEAR    .  N@DOCNUM      @ ଠ 2-
Ŀ
  1 1.1.  /   @                /@                           
Ĵ
  2  @CDI01    @CDI02    @CDI03    @CDI04    @CDI05    @CDI06    
Ĵ\                                                             
.Ĵ
   @SDI0101  @SDI0201  @SDI0301  @SDI0401  @SDI0501  @SDI0601  
.Ĵ
    ࠫ@SDI0102  @SDI0202  @SDI0302  @SDI0402  @SDI0502  @SDI0602  
    Ĵ
       @SDI0103  @SDI0203  @SDI0303  @SDI0403  @SDI0503  @SDI0603  
    Ĵ
    ५ @SDI0104  @SDI0204  @SDI0304  @SDI0404  @SDI0504  @SDI0604  
    Ĵ
        @SDI0105  @SDI0205  @SDI0305  @SDI0405  @SDI0505  @SDI0605  
    Ĵ
       @SDI0106  @SDI0206  @SDI0306  @SDI0406  @SDI0506  @SDI0606  
    Ĵ
       @SDI0107  @SDI0207  @SDI0307  @SDI0407  @SDI0507  @SDI0607  
    Ĵ
     @SDI0108  @SDI0208  @SDI0308  @SDI0408  @SDI0508  @SDI0608  
    Ĵ
    .@SDI0109  @SDI0209  @SDI0309  @SDI0409  @SDI0509  @SDI0609  
    Ĵ
    @SDI0110  @SDI0210  @SDI0310  @SDI0410  @SDI0510  @SDI0610  
    Ĵ
     @SDI0111  @SDI0211  @SDI0311  @SDI0411  @SDI0511  @SDI0611  
    Ĵ
    @SDI0112  @SDI0212  @SDI0312  @SDI0412  @SDI0512  @SDI0612  

  3 室,  ஬㳊 室㬬      ⠳   㬬  
     ᮮ⢥⢨             室                  
    . ꥪ                                         
    ।⠢. 죮                                         
Ŀ
  4 室, 祭륳 㬬        㬬        㬬        
     த .  .室      .室      .室       
Ĵ
  5 5.1..  @      5.2. 客 @STRAHN       
    .                   .  , 䨧.                
Ĵ
5.3.5.3.1.ᨮ 䮭 ᨩ᪮ 䥤樨             @PFBASE          
Ĵ
   5.3.2. 樠쭮 客 ᨩ᪮ 䥤.     @SSBASE          
.Ĵ
5.3.3.ࠫ 䮭 . 樭᪮ 客  @MSBASE          
 Ĵ
 5.3.4.ਠ 䮭 . . 客      @TMSBASE         
Ĵ
  6 6.1.ᨮ 䮭 ᨩ᪮ 䥤樨               @PFTAX           
Ĵ
   6.2. 樠쭮 客 ᨩ᪮ 䥤.       @SSTAX           
.Ĵ
.6.3.ࠫ 䮭 . 樭᪮ 客    @MSTAX           
 Ĵ
    6.4.ਠ 䮭 . . 客        @TMSTAX          

Ŀ
 .⠳ @                ⠢@   @   @       
(⥫.)
   ..             

$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);
    #DOCDATE(C,10,0)=_(DOCDATE,);
    //
    &(N,5,0)=0;                                  // 稪 ᥩ
    &(N,5,0)=0;
    $
      #=_();
      $()
        &=+1;
      $_
      &=+1;
    $(_GT(-))
                                
               @YEAR   
                       ()

                @DOCDATE    @

    (⥫騪  樠쭮  ()):
  @1
  @2
  @3

     (⥫騪  樠쭮 
  ()): @                /@

  樮  ⥫騪  樠쭮 
  ()  : @

   ⢥⢥ : @

  ⢮ ।⠢ 㬥⮢ (ࠢ  室  
  樠쭮  ()): @

    &(N,5,0)=0;                                  // 稪 ᥩ
    &(N,5,0)=1;                                 // 稪 ࠭
    #(N,3,0)=_();                      //  ࠭
    &(N,5,0)=1;
    $
      #=_();
      $()
        $()
          #=_(,,)           //  
          #=_(__);               //  㬬  
          &(N,5,0)=0;
        $_
        #=_(_,,)  //   ப ⠡
      $_
      &=+1;
      #(N,5,0)=_();                 // 稪 ப  
      $(_GE(+6-)+_EQ(-))
        #=_(,_);            //  ⮣  .
        #=_(__);            //  ⮣  .
        $(_LT(-))
          $_
          &(N,5,0)=1;
        $_
      $_
    $(_GT(-))
    #=_(_,);
    $(_GE(+12-))
      $_
    $_

      
    (⥫騪  樠쭮  ()) _____________


        


      ।⠢   ࣠ "____"__________"20___.

      ਭ   ࣠      "____"__________"20___.

      ࠡ⭨  ࣠   _______________

    $
  $_
$}(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);
             2001 
           ()   

    ________  __.______.20___ .

  /: @                /@

   :
  @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(-))

    ___  "__" _______________ 20__ 

   ,   : @

      : _____

       :

   
   
   
   
   
   
   
   
   
   
   
   

     ( 
    ()) ________________


     ..

      ________________


    $_
    $
  $_  // _EQ(-2)
$}(9. ⮪. )
$
