// ଠ  ⭮ ⪠    .   
#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);
&1(N,9,@)=0;
&1(N,6,2)=0.00;
&2(N,9,@)=0;
&2(N,6,2)=0.00;
#1(N,9,@)=R_Summ(**,894);
#1(N,6,2)=R_Time("",894);
#2(N,9,@)=R_Summ(**,896);
#2(N,2,0)=R_Time("",896);
&(N,9,@)=0;
&(N,6,2)=0.00;
&(N,9,@)=1+2;
&(N,6,2)=1+2;
 ⮪
@2                                      @MRASCH  @GOD .
-:@PODR   @TN    (@K): @F
          @                 ଠ   @
$}(3. ⭮ ⪠).  ଫ 蠯.   
#SL(C,200,0)=SrcList();   
&QQQ(N,4,0)=1; &SEAC(N,5,0)=0;   
$   
#SRC(N,3,0)=_(SL,QQQ,1);   
$ (_GT(SRC))   
#SEAC=SetPrintSrc(SRC);   
#NAMESRC(C,45,0)=NameSrc(SRC,2);   
@NAMESRC   
$FPT$   
------------------------------------------------------------   
&(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,35,0)=R_String( ); #(C,27,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;   
#TEMPSUM(N,12,@)=R_Face(ved1);   
&SUMOTPUV=SUMOTPUV+TEMPSUM;   
&RCN(N,4,0)=0; &RCU(N,4,0)=0; //  ⥫   
$                                   //     ⠡   
  &0=; &0=;   
  #O(N,2,0)=_(,,,,,,,RCN); #Q(N,2,0)= _(,,,,,,,RCU);   
  $ (_GE(+-4)*_LT(0+0-4))   
    $ (RCN+RCU)   
------------------------------------------------------------   
    $_   
   .            㬬 |   㤥.      㬬   
  $_   
  $ ((1-_EQ(-3))*_GT(-))             // ନ㥬 ப ᫥   
    #=R_String(                                  |); //  ப   
  $   
    $ (_EQ(-3))                                   // ⮣   
      #O(N,2,0)=_(,,,,,,,RCN);   
      #=R_String(                 @     @); &RCN=RCN+1;   
    $_   
    $ (_LT(-3))                                   // 㬬   
      #=R_String(@ @ @  @    @     @); &RCN=RCN+1;   
    $_   
  $_                              // ନ㥬 ப 㤥ঠ   
  $ (_GE(-2)*_LT(-2)+_GE(-7)*_LT(-7))   
    #=R_String(                         );          //  ப   
  $   
    $ (_EQ(-3))                                   // ⮣   
      #Q(N,2,0)= _(,,,,,,,RCU);   
      #=R_String(         @     );        &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(@ @ @  @     @);      &RCU=RCU+1;   
    $_   
  $_   
  $ (_LT(-7)+_LT(-7))   
@                              @   
  $_   
$ (_LT(-7)+_LT(-7))   
$ (RCN+RCU)   
------------------------------------------------------------   
$_   
#O(N,2,0)=_(,,,,,,,RCN); #Q(N,2,0)= _(,,,,1,,,RCU);   
&RCN=RCN+1; &RCU=RCU+1;   
  ᫥      @      | 㤥ঠ     @1   
------------------------------------------------------------   
#O(N,2,0)=_(,,,,,,,RCN);   
&RCN=RCN+1;                            //  , ⮪,    
#O(N,2,0)=_(,,,,1,,,RCN); #Q(N,2,0)= _(,,,,2,,,RCU);   
#=R_String( );   
$ (_GT(1))   
  #=R_String( ⮪      @1     );   
$_   
$ (_GT(2))   
  #=R_String(          @2     );   
$_   
$ (_GT())   
  .        @       @   
$   
$ (_GT(1)+_GT(2))   
    ᫥饬         @   
$   
&T1(N,5,@)=0;   
    ᫥饬         @T1   
$_   
$_   
&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(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. ⪠  㢮쭥).   㬬  㢮쭥.   
$_   
   
$  
 

