// ଠ  ⭮ ⪠    . 
#CLIN(N,4,0)=_(); #SIZL(N,4,0)=_(); 
$(_GT(+CLIN+12-SIZL)) 
  $LF 
$_ 
${(7. ਧ  ) 
 &(N,4,0)=2;        // ⠢ &(N,4,0)=2   㬬   
$}(7. ਧ  ) 
${(3. ⭮ ⪠).  ଫ 蠯. 
$(_,68)  //     㬠  ண ⪠ 
$(_, );    //   ।⠢ 㫥 ࠡ祣 ६ 
#F(C,31,0)=R_Name(2); // ⠢ R_Name(1), ᫨     蠯 
&(N,6,0)=0;  // ⠢ &(N,6,0)=1  뤥 㬬 .楢 
#S(C,2,0)=R_String(  ); #OFICE(C,42,0)=R_String(); #PODR(C,7,0)=R_Face(podr); #T0(N,7,0)=R_Face(tn); 
&TN(N,7,0)=T0; #KAT(N,2,0)=R_Face(kat); &SUMOTPUV(N,12,@)=0; 
&K(N,2,0)=KAT; #GOD(N,4,0)=(5); #MES(N,2,0)=(2); #MRASCH(C,8,0)=_(MES); 
@OFICE                                      @MRASCH  @GOD . 
-:@PODR   @TN    (@K): @F 
$}(3. ⭮ ⪠).  ଫ 蠯. 
#SL(C,200,0)=SrcList(); 
&QQQ(N,4,0)=1; &SEAC(N,5,0)=0; 
---------------------------------------------------------------- 
    .            㬬 |    㤥.      㬬 
&(N,2,0)=0; &(N,3,0)=0; #(C,7,0)=R_String( ); &(N,7,2)=0; &(N,10,@ )=0; #(C,2,0)=R_String( ); &(N,3,0)=0; #(C,37,0)=R_String( ); #(C,29,0)=R_String( ); &2(N,11,@ )=0; 
&(N,2,0)=0; &(N,3,0)=0; #(C,7,0)=R_String( ); &(N,6,2)=0; &(N,10,@ )=0; #(C,2,0)=R_String( ); &(N,3,0)=0; &(N,11,@ )=0;  &0(N,3,0)=99; &0(N,3,0)=99; &1(N,11,@ )=0; 
#Y(C,2,0)=R_String( ); #Z(C,2,0)=R_String( ); 
&RCN(N,4,0)=0; &RCU(N,4,0)=0; //  ⥫ 
#FSZ(N,3,0)=W_CommonSrc(23,1,0); #FSZ1(N,4,0)=R_CommonSrc(9); #FSZ2(N,4,0)=R_CommonSrc(10); 
#FSZ3(N,4,0)=W_CommonSrc(9,@FSZ2); 
$FPT$ 
$                                   //     ⠡ 
    #O(N,2,0)=_(,,,,,,,Y,RCN); #Q(N,2,0)= _(,,,,,,,Z,RCU); 
    #=R_String(                                    |); //  ப 
    $ (_LE(-1))                                   // 㬬 
      #=R_String(@Y@ @ @  @    @     @); 
    $_ 
    #=R_String(                           );          //  ப 
    $ (_LE(-1))                                   // 㬬 
      #=R_String(@Z@ @ @  @     @); 
    $_ 
    &RCN=RCN+1; &RCU=RCU+1; 
$ (_LE(-1)+_LE(-1)) 
@                                @ 
$_ 
$ (_LE(-1)+_LE(-1)) 
---------------------------------------------------------------- 
#FSZ(N,3,0)=W_CommonSrc(23,2,0); 
$ 
#SRC(N,4,0)=_(SL,QQQ,1); 
$ (_GT(SRC)) 
#SEAC=SetPrintSrc(SRC); 
#NSRC(C,16,0)=NameSrc(SRC,2); 
$FPT$ 
#TEMPSUM(N,12,@)=R_Face(ved1); 
&SUMOTPUV=SUMOTPUV+TEMPSUM; 
&RCN(N,4,0)=0; &RCU(N,4,0)=0; &=0; &=0; //  ⥫ 
$                                   //     ⠡ 
  &0=; &0=; 
  #O(N,2,0)=_(,,,,,,,Y,RCN); #Q(N,2,0)= _(,,,,,,,Z,RCU); 
  $ (_GE(+-4)*_LT(0+0-4)) 
    $ (RCN+RCU) 
---------------------------------------------------------------- 
    $_ 
  $_ 
  $ ((1-_EQ(-3))*_GT(-))             // ନ㥬 ப ᫥ 
    #=R_String(                                    |); //  ப 
  $ 
    $ (_EQ(-3))                                   // ⮣ 
      #O(N,2,0)=_(,,,,,,,Y,RCN); 
      #=R_String(  @NSRC            @     @); &RCN=RCN+1; 
    $_ 
    $ (_LT(-3))                                   // 㬬 
      #=R_String(@Y@ @ @  @    @     @); &RCN=RCN+1; 
    $_ 
  $_                              // ନ㥬 ப 㤥ঠ 
  $ (_GE(-2)*_LT(-2)+_GE(-7)*_LT(-7)) 
    #=R_String(                           );          //  ப 
  $ 
    $ (_EQ(-3))                                   // ⮣ 
      #Q(N,2,0)= _(,,,,,,,Z,RCU); 
      #=R_String(  ( @Z)    @     );        &RCU=RCU+1; 
    $_ 
    $ (_EQ(-4)) // ਩   믫⠬, ப 1 
      #=R_String(                           );        &RCU=RCU+1; 
    $_ 
    $ (_EQ(-5)) // ਩   믫⠬, ப 2 
      #=R_String(  믫:     );        &RCU=RCU+1; 
    $_ 
    $ (_LT(-3)+_EQ(-6))                         // 㬬 
      #=R_String(@Z@ @ @  @     @);      &RCU=RCU+1; 
    $_ 
  $_ 
  $ (_LT(-7)+_LT(-7)) 
@                                @ 
  $_ 
$ (_LT(-7)+_LT(-7)) 
$_ 
&QQQ=QQQ+1; 
$ (_GT(SRC)) 
$ (RCN+RCU) 
---------------------------------------------------------------- 
$_ 
#O(N,2,0)=_(,,,,,,,Y,RCN); #Q(N,2,0)= _(,,,,1,,,Z,RCU); #W_CommonSrc(5,0,0); 
&RCN=RCN+1; &RCU=RCU+1; 
#=(1); #1=(2); 
  ᫥        @      | 㤥ঠ       @1 
---------------------------------------------------------------- 
#O(N,2,0)=_(,,,,,,,Y,RCN); 
&RCN=RCN+1;                            //  , ⮪,  
#O(N,2,0)=_(,,,,1,,,Y,RCN); #Q(N,2,0)= _(,,,,2,,,Z,RCU); 
#=R_String( ); 
$ (_LE(QQQ-3)) 
   $ (_GT(1)) 
     #=R_String( ⮪        @1     ); 
   $_ 
   $ (_GT(2)) 
     #=R_String(            @2     ); 
   $_ 
   $ (_EQ()) 
      #=CashSumm(0,998,0,0,35,CSRC); 
   $_ 
  .          @       @ 
$ 
   &QQQ=1; 
     
   $ 
      #SRC(N,4,0)=_(SL,QQQ,1); #=R_String( ); 
      $ (_GT(SRC)) 
         #NAMESRC(C,23,0)=NameSrc(SRC,2); #FSZ2(N,2,0)=W_CommonSrc(23,@SRC,0); #CSRC(C,4,0)=R_CommonSrc(23); 
         #=GetVved(0,CSRC); 
         $ (_EQ()) 
            #=CashSumm(0,998,0,0,35,CSRC); 
         $_ 
         #1=CashSumm(0,101,1,1,35,CSRC); #2=CashSumm(0,300,1,1,35,CSRC); 
         $ (_GT(1)) 
           #=R_String( ⮪        @1     ); 
         $_ 
         $ (_GT(2)) 
           #=R_String(            @2     ); 
         $_ 
 @NAMESRC               @       @ 
      $_ 
      &QQQ=QQQ+1; 
   $(_GT(SRC)) 
$_ 
#TABEL(C,40,0)=R_Caln(0);                    // ⠡ 
 
 : @TABEL 
${(1.㬬  ஢ન /).  㬬  /. 
//$  //   ப   㬬  /.
&FLSUMM(N,4,0)=1;  // 1 -  㬬 筨 믫, 2   㬬
#(C,160,0)=R_String(15,16); // ᫨  ᪮ 㦭 㬬
#REM001(C,35,0)=R_String( 室   ᪨);            // 1
#REM002(C,35,0)=R_String(᭮ 室   ᪨);          // 2
#REM003(C,35,0)=R_String(室  2- ⠡   ᪨);    // 3
#REM007(C,35,0)=R_String(   㬬);                     // 7
#REM008(C,35,0)=R_String(  ᭮ 㬬);                   // 8
#REM009(C,35,0)=R_String(  㬬  2- ⠡);             // 9
#REM011(C,35,0)=R_String(, ।  ᪠  );       // 11
#REM012(C,35,0)=R_String(,㤥ঠ  ਮ)                // 12
#REM013(C,35,0)=R_String(,㤥ঠ   ਮ)           // 13
#REM014(C,35,0)=R_String(㬬 ⮢);                            // 14
#REM015(C,35,0)=R_String(ᮭ );                      // 15
#REM016(C,35,0)=R_String(  楢);                     // 16
#REM032(C,35,0)=R_String(業  );                // 32
#REM033(C,35,0)=R_String(㬬 ᪨  室);                   // 33
#REM034(C,35,0)=R_String(㬬  3- ⠡);                     // 34
#REM035(C,35,0)=R_String( 㬬  3- ⠡);          // 35
#REM036(C,35,0)=R_String(㬬   3- ⠡);              // 36
#REM037(C,35,0)=R_String(㬬 ⮢  室);                  // 37
#REM038(C,35,0)=R_String(㬬 ⮢  2- ⠡);             // 38
#REM039(C,35,0)=R_String(㬬 ⮢  3- ⠡);             // 39
#REM041(C,35,0)=R_String( 室  ⮬ ᪨);             // 41
#REM042(C,35,0)=R_String(᭮ 室  ⮬ ᪨);           // 42
#REM043(C,35,0)=R_String(室  2- ⠡  ⮬ ᪨);     // 43
#REM044(C,35,0)=R_String(室  3- ⠡  ⮬ ᪨);     // 44
#REM045(C,35,0)=R_String( 㬬 ᭮ 室);        // 45
#REM046(C,35,0)=R_String( 㬬  2- ⠡);          // 46
#REM047(C,35,0)=R_String( 㬬  3- ⠡);          // 47
#REM048(C,35,0)=R_String(  㬬);                   // 48
#REM050(C,35,0)=R_String(室   ⮢);                // 50
#REM063(C,35,0)=R_String(  ᭮ 室);               // 63
#REM064(C,35,0)=R_String(  2- ⠡);                    // 64
#REM065(C,35,0)=R_String(  3- ⠡);                    // 65
#REM300(C,35,0)=R_String(ਠ쭠 );                      // 300
#REM301(C,35,0)=R_String(  ਠ쭮 );            // 301
#REM302(C,35,0)=R_String(ન);                                  // 302
#REM303(C,35,0)=R_String(  ઠ);                       // 303
#REM304(C,35,0)=R_String(ਧ);                                    // 304
#REM305(C,35,0)=R_String(  ਧ);                         // 305
#REM306(C,35,0)=R_String(    ᭮ 室);            // 306
#REM307(C,35,0)=R_String(    /);                         // 307
#REM308(C,35,0)=R_String(    室 ᮢ⥫);        // 308
#REM309(C,35,0)=R_String(    / ᮢ⥫);           // 309
#REM310(C,35,0)=R_String(  ந⥫⢮);                 // 310
#REM507(C,35,0)=R_String(   㬬  );                // 507
#REM508(C,35,0)=R_String(  ᭮ 㬬  );              // 508
#REM509(C,35,0)=R_String(  㬬 p/  );                   // 509
#REM511(C,35,0)=R_String(  ᪠    );              // 511
#REM512(C,35,0)=R_String(ঠ   ਮ  );           // 512
#REM513(C,35,0)=R_String(ঠ    ਮ  );      // 513
  㬬  ஢ન /        ⥪..   .
$}(1.㬬  ஢ન /).   㬬  /. 
// ⥬   㬬  / 
$ (_EQ(FLSUMM-1)) 
  #001(N,11,@ )=R_Tax(1,1,g,0,筨 믫,*,); 
$ 
  #001(N,11,@ )=R_Tax(1,1,g,0,*,*,); 
$_ 
#002(N,11,@ )=R_Tax(2);   #003(N,11,@ )=R_Tax(3); 
#007(N,11,@ )=R_Tax(7);   #008(N,11,@ )=R_Tax(8); 
#009(N,11,@ )=R_Tax(9);   #011(N,11,@ )=R_Tax(11); 
#012(N,11,@ )=R_Tax(12); 
#013(N,11,@ )=R_Tax(13);  #014(N,11,@ )=R_Tax(14); 
#015(N,11,@ )=R_Tax(15);  #016(N,11,@ )=R_Tax(16); 
#032(N,11,@ )=R_Tax(32);  #033(N,11,@ )=R_Tax(33); 
#034(N,11,@ )=R_Tax(34);  #035(N,11,@ )=R_Tax(35); 
#036(N,11,@ )=R_Tax(36);  #037(N,11,@ )=R_Tax(37); 
#038(N,11,@ )=R_Tax(38);  #039(N,11,@ )=R_Tax(39); 
#041(N,11,@ )=R_Tax(41);  #042(N,11,@ )=R_Tax(42); 
#043(N,11,@ )=R_Tax(43);  #044(N,11,@ )=R_Tax(44); 
#045(N,11,@ )=R_Tax(45);  #046(N,11,@ )=R_Tax(46); 
#047(N,11,@ )=R_Tax(47);  #048(N,11,@ )=R_Tax(48); 
#050(N,11,@ )=R_Tax(50);  #063(N,11,@ )=R_Tax(63); 
#064(N,11,@ )=R_Tax(64);  #065(N,11,@ )=R_Tax(65); 
#300(N,11,@ )=R_Tax(list,Summa,2760,0,503,1," "); 
#301(N,11,@ )=R_Tax(list,RealDiscount,2760,0,503,1," "); 
#302(N,11,@ )=R_Tax(list,Summa,2720,0,501,1," "); 
#303(N,11,@ )=R_Tax(list,RealDiscount,2720,0,501,1," "); 
#304(N,11,@ )=R_Tax(list,Summa,2730,0,502,1," "); 
#305(N,11,@ )=R_Tax(list,RealDiscount,2730,0,502,1," "); 
#306(N,11,@ )=R_Tax(list,Summa,0,10,0,1," "); 
#307(N,11,@ )=R_Tax(list,Summa,0,11,0,2," "); 
#308(N,11,@ )=R_Tax(list,Summa,0,10,0,1,"0"); 
#309(N,11,@ )=R_Tax(list,Summa,0,11,0,2,"0"); 
#310(N,11,@ )=R_Tax(list,Summa,0,42,5,1," "); 
$ (_EQ(FLSUMM-1)) 
  #001(N,11,@ )=R_Tax(1,1,0,0,筨 믫,*,); 
$ 
  #001(N,11,@ )=R_Tax(1,1,0,0,*,*,); 
$_ 
#002(N,11,@ )=R_Tax(2);    #003(N,11,@ )=R_Tax(3); 
#007(N,11,@ )=R_Tax(7);    #008(N,11,@ )=R_Tax(8); 
#009(N,11,@ )=R_Tax(9);    #011(N,11,@ )=R_Tax(11); 
#012(N,11,@ )=R_Tax(12); 
#013(N,11,@ )=R_Tax(13);   #014(N,11,@ )=R_Tax(14); 
#015(N,11,@ )=R_Tax(15);   #016(N,11,@ )=R_Tax(16); 
#032(N,11,@ )=R_Tax(32);   #033(N,11,@ )=R_Tax(33); 
#034(N,11,@ )=R_Tax(34);   #035(N,11,@ )=R_Tax(35); 
#036(N,11,@ )=R_Tax(36);   #037(N,11,@ )=R_Tax(37); 
#038(N,11,@ )=R_Tax(38);   #039(N,11,@ )=R_Tax(39); 
#041(N,11,@ )=R_Tax(41);   #042(N,11,@ )=R_Tax(42); 
#043(N,11,@ )=R_Tax(43);   #044(N,11,@ )=R_Tax(44); 
#045(N,11,@ )=R_Tax(45);   #046(N,11,@ )=R_Tax(46); 
#047(N,11,@ )=R_Tax(47);   #048(N,11,@ )=R_Tax(48); 
#050(N,11,@ )=R_Tax(50);   #063(N,11,@ )=R_Tax(63); 
#064(N,11,@ )=R_Tax(64);   #065(N,11,@ )=R_Tax(65); 
#300(N,11,@ )=R_Tax(list,Summa,2760,0,503,1," "); 
#301(N,11,@ )=R_Tax(list,RealDiscount,2760,0,503,1," "); 
#302(N,11,@ )=R_Tax(list,Summa,2720,0,501,1," "); 
#303(N,11,@ )=R_Tax(list,RealDiscount,2720,0,501,1," "); 
#304(N,11,@ )=R_Tax(list,Summa,2730,0,502,1," "); 
#305(N,11,@ )=R_Tax(list,RealDiscount,2730,0,502,1," "); 
#306(N,11,@ )=R_Tax(list,Summa,0,10,0,1," "); 
#307(N,11,@ )=R_Tax(list,Summa,0,11,0,2," "); 
#308(N,11,@ )=R_Tax(list,Summa,0,10,0,1,"0"); 
#309(N,11,@ )=R_Tax(list,Summa,0,11,0,2,"0"); 
#310(N,11,@ )=R_Tax(list,Summa,0,42,5,1," "); 
  &CNT(N,4,0)=1; 
  $ 
    #N(V,3,0)=_(,CNT); 
    $ (_GT(N)) 
      #(C,35,0)=R_String(REM@N ); 
      &(N,11,@ )=@N; 
      &(N,11,@ )=@N; 
 @                             @     @ 
    $_ 
    &CNT=CNT+1; 
  $ (_GT(N)) 
$_                  //  ⥭  㬬  / 
${(2.㬬  롮ઠ ⠡.-).  㬬  롮ઠ. 
//#(N,11,@ )=R_Col_S("1","*",15,0,0); 
//#(N,11,@ )=R_Col_S("2","*",15,0,0); 
// 㬬                   @ 
// 㬬                   @ 
$}(2.㬬  롮ઠ ⠡.-).   㬬  롮ઠ. 
$ (_EQ(-1)) 
${(6. 㬬  㣨 ).  㬬  㣨 . 
#(N,12,@ )=R_Col_S(1,=,0,-14,-1); #(N,12,@ )=R_Col_S(1,=,0,1,6); 
$ (1-_EQ()) 
믫.      ⥪饣    @ 
$_ 
$ (1-_EQ()) 
믫.  騥    ⥪饣    @ 
$_ 
$}(6. 㬬  㣨 ).  㬬  㣨 . 
$_ 
#(N,4,0)=_(""); 
$ (_EQ(-1)) 
${(4. ⪠  ).  㬬  . 
//#(N,12,@ )=R_Face(ved1); 
㬬      @SUMOTPUV 
$}(4. ⪠  ).  㬬  . 
$_ 
#(N,4,0)=_(""); 
$ (_EQ(-1)) 
${(5. ⪠  㢮쭥).  㬬  㢮쭥. 
//#(N,12,@ )=R_Face(ved1); 
㬬  㢮쭥 @SUMOTPUV 
$}(5. ⪠  㢮쭥).   㬬  㢮쭥. 
$_ 
#FSZ(N,3,0)=W_CommonSrc(23,0,0); #FSZ2(N,4,0)=W_CommonSrc(9,@FSZ1,0); 
 
$