//------------------  ()-----------------   
${(4.ன)         
&RITOG(N,2,0)=0;   // 0 - ⮣   ⮫쪮  㬬  ; 1 -   ⮫殢
$}(4.ன)         
#(N,5,0)=_(0); // ᫮ ࠡ ᥩ  ⠡   
$(_EQ())   
  $   
$_   
//     
#NOS(N,3,0)=_(OST); //  ⪠   
&NDO(N,3,0)=NOS+1; //     
&NPN(N,3,0)=3; //  ࢮ ᫥   
#NVN(N,3,0)=_(SN); //  "ᥣ ᫥"   
&NPU(N,3,0)=NVN+1; //  ࢮ 㤥ঠ   
&NLU(N,3,0)=NOS-1; //  ᫥ 㤥ঠ   
&NKV(N,3,0)=NDO+1; //  " 믫"   
&NFI(N,3,0)=NKV+1; //  䠬   
&NPO(N,3,0)=NFI+1; //     
&NNN(N,3,0)=NVN-4;   
&MMM(N,3,0)=NOS-3;   
#ORG(C,90,0)=R_String();
// 稥 ६   
&NS(N,3,0)=6; //  ⮫   
$(_LT((NVN-NPN)-6))   
⮫殢  ᫥     6.   
  $   
$_   
$(_LT((NLU-NPU+1)-4))   
⮫殢  㤥ঠ     4.   
  $   
$_   
//   
${(2. ⮣  )   
&(N,3,0)=1; // 0 -   ⮣  ; 1 -   
$}(2. ⮣  )   
#Z1(C,33,0)=R_String();   
#Z2(C,33,0)=R_String();   
#Z3(C,33,0)=R_String();   
#Z4(C,33,0)=R_String();   
#Z5(C,33,0)=R_String();   
#Z6(C,33,0)=R_String();   
#Z7(C,33,0)=R_String();   
$BEG_SCRIPT   
sprintf(Z1,"%-33.33s",NameColTbl(3));   
sprintf(Z2,"%-33.33s",NameColTbl(4));   
sprintf(Z3,"%-33.33s",NameColTbl(5));   
sprintf(Z4,"%-33.33s",NameColTbl(NVN-3));   
sprintf(Z5,"%-33.33s",NameColTbl(NVN-2));   
//FreeSpaceString(rr1,2,"");   
$END_SCRIPT   
#=_(Z1,11);  
#Z10(C,11,0)=_(0);  
#Z11(C,11,0)=_(1);  
#Z12(C,11,0)=_(2);  
#=_();  
#=_(Z2,11);  
#Z20(C,11,0)=_(0);  
#Z21(C,11,0)=_(1);  
#Z22(C,11,0)=_(2);  
#=_();  
#=_(Z3,11);  
#Z30(C,11,0)=_(0);  
#Z31(C,11,0)=_(1);  
#Z32(C,11,0)=_(2);  
#=_();  
#=_(Z4,11);  
#Z40(C,11,0)=_(0);  
#Z41(C,11,0)=_(1);  
#Z42(C,11,0)=_(2);  
#=_();  
#=_(Z5,11);  
#Z50(C,11,0)=_(0);  
#Z51(C,11,0)=_(1);  
#Z52(C,11,0)=_(2);  
#=_();  
//   
// ६  蠯 ᫥   
&I(V,2,0)=1;   
//   
#SNI01(C,500,0)=R_String(------------------------------------------------);   
#SNI02(C,500,0)=R_String(                                               |);   
#SNI03(C,500,0)=R_String(-----------------------------------------------|);   
#SNI04(C,500,0)=R_String(                                   |   ᥣ   |);   
#SNI05(C,500,0)=R_String(-----------------------------------|           |);   
#SNI06(C,500,0)=R_String(           |           |⮨  |           |);   
#SNI07(C,500,0)=R_String(           |           |।-  |           |);   
#SNI08(C,500,0)=R_String(           |           | - |           |);   
#SNI09(C,500,0)=_(Z40,|,Z50,|樠  |           |);   
#SNI10(C,500,0)=_(Z41,|,Z51,|ਠ- |           |);   
#SNI11(C,500,0)=_(Z42,|,Z52,|    |           |);   
#SNI12(C,500,0)=R_String(-----------|-----------|-----------|-----------|);   
#SNI13(C,500,0)=R_String();   
//   
#SNP01(C,100,0)=R_String(----------------------------------------------------------------------------------------------------);   
#SNP02(C,100,0)=R_String(||-|           |  ,   |  ࠡ⠭   |                    ᫥, . );   
#SNP03(C,100,0)=R_String(|   |    |    ()     | 䭠  |  (ᮢ)  |------------------------------------);   
#SNP04(C,100,0)=R_String(| - |  |                    |  ⠢   |               |  ⥪騩   (  ) );   
#SNP05(C,100,0)=R_String(|浪|       |                    |(ᮢ,  |---------------|------------------------------------);   
#SNP06(C,100,0)=R_String(|     |       |                    | ), |ࠡ|室- |           |           |           |);   
#SNP07(C,100,0)=R_String(|     |       |                    |   .    |       |   |           |           |           |);   
#SNP08(C,100,0)=R_String(|     |       |                    |   .    |       |ࠧ- |           |           |           |);   
#SNP09(C,100,0)=_(|     |       |                    |           |       | |,Z10,|,Z20,|,Z30,|);   
#SNP10(C,100,0)=_(|     |       |                    |           |       |       |,Z11,|,Z21,|,Z31,|);   
#SNP11(C,100,0)=_(|     |       |                    |           |       |       |,Z12,|,Z22,|,Z32,|);   
#SNP12(C,100,0)=R_String(|-----|-------|--------------------|-----------|-------|-------|-----------|-----------|-----------|);   
#SNP13(C,100,0)=R_String(|  1  |   2   |         3          |     4     |   5   |   6   |     7     |     8     |     9     |);   
//   
#SNT01(C,12,0)=R_String(------------);   
#SNT02(C,12,0)=R_String(            );   
#SNT03(C,12,0)=R_String(------------);   
#SNT04(C,12,0)=R_String(            );   
#SNT05(C,12,0)=R_String(------------);   
#SNT06(C,12,0)=R_String(           |);   
#SNT07(C,12,0)=R_String(           |);   
#SNT08(C,12,0)=R_String(           |);   
#SNT09(C,12,0)=R_String(           |);   
#SNT10(C,12,0)=R_String(           |);   
#SNT11(C,12,0)=R_String(           |);   
#SNT12(C,12,0)=R_String(-----------|);   
//   
// ନ㥬 蠯 ᫥   
#A2(C,33,0)=R_String();   
#A3(C,11,0)=R_String();  
&COUNT(N,3,0)=(NVN-NPN)-6;   
&I=1;   
&NSS(N,3,0)=13+COUNT+1; //    蠯 㤥ঠ   
$(_EQ(COUNT))   
  $   
    #SNI@I=_(SNP@I,SNI@I);   
    &I=@I + 1;   
  $(13-@I)   
  #SNI13=R_String(|  1  |  2    |         3          |    4      |   5   |   6   |     7     |     8     |     9     |     10    |     11    |    12     |     13    |);   
$   
  $   
    &COUNT=(NVN-NPN)-6;   
    &NNN=NVN-4;   
    $   
      $(_EQ(9-I))   
        $BEG_SCRIPT   
          sprintf(A2,"%-33.33s",NameColTbl(NNN));   
        $END_SCRIPT   
        #=_(A2,11);  
        #A3=_(0);  
        #=_();  
        #SNI@I=_(A3,|,SNI@I);   
        &NNN=NNN-1;   
      $_   
      $(_EQ(10-I))   
        $BEG_SCRIPT   
          sprintf(A2,"%-33.33s",NameColTbl(NNN));   
        $END_SCRIPT   
        #=_(A2,11);  
        #A3=_(1);  
        #=_();  
        #SNI@I=_(A3,|,SNI@I);   
        &NNN=NNN-1;   
      $_   
      $(_EQ(11-I))   
        $BEG_SCRIPT   
          sprintf(A2,"%-33.33s",NameColTbl(NNN));   
        $END_SCRIPT   
        #=_(A2,11);  
        #A3=_(2);  
        #=_();  
        #SNI@I=_(A3,|,SNI@I);   
        &NNN=NNN-1;   
      $_   
      $(_NE(9-I)*_NE(10-I)*_NE(11-I))  
        #SNI@I=_(SNT@I,SNI@I);   
      $_    
      &COUNT=COUNT-1;   
    $(COUNT)   
    &I=@I+1;   
  $(13-@I)   
  &I=1;   
  $   
    #SNI@I=_(SNP@I,SNI@I);   
    &I=@I + 1;   
  $(13-@I)   
  &COUNT=(NVN-NPN)-6;   
  &NS=13+COUNT; //   ᫥ ᫥  蠯   
  $   
    #SNI13=_(    ,@NS,    |,SNI13);   
    &NS=NS-1;   
  $(9-NS)   
  #SNI13=_(SNP13,SNI13);   
$_   
// 稫 ନ஢ 蠯 ᫥   
// ६  蠯 㤥ঠ   
#X1(C,33,0)=R_String();   
#X2(C,33,0)=R_String();   
#X3(C,33,0)=R_String();   
$BEG_SCRIPT   
sprintf(X1,"%-33.33s",NameColTbl(NVN+2));   
sprintf(X2,"%-33.33s",NameColTbl(NOS-2));   
sprintf(X3,"%-33.33s",NameColTbl(NOS-1));   
//FreeSpaceString(rr1,2,"");   
$END_SCRIPT   
#=_(X1,11);  
#X10(C,11,0)=_(0);  
#X11(C,11,0)=_(1);  
#X12(C,11,0)=_(2);  
#=_();  
#=_(X2,11);  
#X20(C,11,0)=_(0);  
#X21(C,11,0)=_(1);  
#X22(C,11,0)=_(2);  
#=_();  
#=_(X3,11);  
#X30(C,11,0)=_(0);  
#X31(C,11,0)=_(1);  
#X32(C,11,0)=_(2);  
#=_();  
//   
#SUI01(C,500,0)=R_String(-------------------------------------------------------------------------------------------------);   
#SUI02(C,500,0)=R_String(                       |            㬬, .            |         죨 稫             |);   
#SUI03(C,500,0)=R_String(                       |                                   |                                    |);   
#SUI04(C,500,0)=R_String(-----------------------|-----------------------------------|------------------------------------|);   
#SUI05(C,500,0)=R_String(           |           |    |-  |  믫 |     䠬,       |        |);   
#SUI06(C,500,0)=R_String(           |           | ࣠- |    |           |     樠       |               |);   
#SUI07(C,500,0)=R_String(           |           |   樥    |ࠡ⭨ |           |                    |               |);   
#SUI08(C,500,0)=R_String(           |           |           |           |           |                    |               |);   
#SUI09(C,500,0)=_(X20,|,X30,|           |           |           |                    |               |);   
#SUI10(C,500,0)=_(X21,|,X31,|           |           |           |                    |               |);   
#SUI11(C,500,0)=_(X22,|,X32,|           |           |           |                    |               |);   
#SUI12(C,500,0)=R_String(-----------|-----------|-----------|-----------|-----------|--------------------|---------------|);   
#SUI13(C,500,0)=R_String();   
//   
#SUP01(C,25,0)=R_String(-------------------------);   
#SUP02(C,25,0)=R_String(|ঠ  ⥭, .);   
#SUP03(C,25,0)=R_String(|                        );   
#SUP04(C,25,0)=R_String(|------------------------);   
#SUP05(C,25,0)=R_String(|      |           |);   
#SUP06(C,25,0)=R_String(|         |           |);   
#SUP07(C,25,0)=R_String(|  室   |           |);   
#SUP08(C,25,0)=R_String(|           |           |);   
#SUP09(C,25,0)=_(|           |,X10,|);   
#SUP10(C,25,0)=_(|           |,X11,|);   
#SUP11(C,25,0)=_(|           |,X12,|);   
#SUP12(C,25,0)=R_String(|-----------|-----------|);   
//   
#SUT01(C,12,0)=R_String(------------);   
#SUT02(C,12,0)=R_String(            );   
#SUT03(C,12,0)=R_String(            );   
#SUT04(C,12,0)=R_String(------------);   
#SUT05(C,12,0)=R_String(           |);   
#SUT06(C,12,0)=R_String(           |);   
#SUT07(C,12,0)=R_String(           |);   
#SUT08(C,12,0)=R_String(           |);   
#SUT09(C,12,0)=R_String(           |);   
#SUT10(C,12,0)=R_String(           |);   
#SUT11(C,12,0)=R_String(           |);   
#SUT12(C,12,0)=R_String(-----------|);   
//   
// ନ㥬 蠯 㤥ঠ   
&COUNT=(NLU-NPU+1)-4;   
&I=1;   
$(_EQ(COUNT))   
  $   
    #SUI@I=_(SUP@I,SUI@I);   
    &I=@I + 1;   
  $(13-@I)   
  &W0(N,3,0)=NSS;   
  &W1(N,3,0)=NSS+1;&W2(N,3,0)=NSS+2;&W3(N,3,0)=NSS+3;&W4(N,3,0)=NSS+4;   
  &W5(N,3,0)=NSS+5;&W6(N,3,0)=NSS+6;&W7(N,3,0)=NSS+7;&W8(N,3,0)=NSS+8;   
  #SUI13=_(|    ,@W0,    |,    ,@W1,    |,    ,@W2,    |,    ,@W3,    |,    ,@W4,    |,    ,@W5,    |,    ,@W6,    |,        ,@W7,         |,      ,@W8,      |);    
$   
  $   
    &COUNT=(NLU-NPU+1)-4;   
    &MMM=NOS-3;   
    $   
      $(_EQ(9-I))   
        $BEG_SCRIPT   
          sprintf(A2,"%-33.33s",NameColTbl(MMM));      
        $END_SCRIPT   
        #=_(A2,11);  
        #A3=_(0);  
        #=_();  
        #SUI@I=_(A3,|,SUI@I);   
        &MMM=MMM-1;   
      $_  
      $(_EQ(10-I))   
        $BEG_SCRIPT   
          sprintf(A2,"%-33.33s",NameColTbl(MMM));      
        $END_SCRIPT   
        #=_(A2,11);  
        #A3=_(1);  
        #=_();  
        #SUI@I=_(A3,|,SUI@I);   
        &MMM=MMM-1;   
      $_  
      $(_EQ(11-I))   
        $BEG_SCRIPT   
          sprintf(A2,"%-33.33s",NameColTbl(MMM));      
        $END_SCRIPT   
        #=_(A2,11);  
        #A3=_(2);  
        #=_();  
        #SUI@I=_(A3,|,SUI@I);   
        &MMM=MMM-1;   
      $_  
      $(_NE(9-I)*_NE(10-I)*_NE(11-I))  
        #SUI@I=_(SUT@I,SUI@I);   
      $_   
      &COUNT=COUNT-1;   
    $(COUNT)   
    &I=@I+1;   
  $(13-@I)   
  &I=1;   
  $   
    #SUI@I=_(SUP@I,SUI@I);   
    &I=@I + 1;   
  $(13-@I)   
  &COUNT=(NLU-NPU+1)-4;   
  &NS=NSS+COUNT+8;   
  &W0(N,3,0)=NS-8;   
  &W1(N,3,0)=NS-7;&W2(N,3,0)=NS-6;&W3(N,3,0)=NS-5;&W4(N,3,0)=NS-4;   
  &W5(N,3,0)=NS-3;&W6(N,3,0)=NS-2;&W7(N,3,0)=NS-1;&W8(N,3,0)=NS;   
  #SUI13=_(    ,@W0,    |,    ,@W1,    |,    ,@W2,    |,    ,@W3,    |,    ,@W4,    |,    ,@W5,    |,    ,@W6,    |,        ,@W7,         |,      ,@W8,      |);    
  &NS=NS-9;   
  $   
    #SUI13=_(    ,@NS,    |,SUI13);   
    &COUNT=COUNT-1;   
    &NS=NS-1;   
  $(COUNT)   
  #SUI13=_(|,SUI13);   
$_   
// 稫 ନࢠ 蠯 㤥ঠ   
//    
${(3. )  
#RSIM(C,10,0)=R_String(          );   
#VSIM(C,10,0)=R_String(          );   
#SSIM(C,10,0)=R_String(          );   
$BEG_SCRIPT   
sprintf(RSIM,"%-10.10s",rsimv);   
sprintf(VSIM,"%-10.10s",simv_vyhodn);   
sprintf(SSIM,"%-10.10s",simv_otpsub);   
$END_SCRIPT   
#(N,3,0)=_(FIO);   
&(N,3,0)= + 1; //      
&TNLS(N,7,0)=0;   
&(N,5,0)=0;   
&(N,5,0)=0;   
#(N,8,0)=_(1);   
#(C,30,0)=_();   
#(N,3,0)=_(CASHSUM);    //  ⮫  㬬     
#(N,12,2)=_(,0);   // 㬬     
&(N,12,0)=_Long(); &(N,4,0)=(-)*100;          
#(C,160,0)=_();          
#(N,8,0)=_(,66);   // 颥 ᫮ ப          
#1(N,66,0)=_(0);          
#2(N,66,0)=_(1);          
#=_();          
#(C,25,0)=R_String();          
#(C,15,0)=_(PrintNumb);   
#(C,10,0)=_(3);          
//#1(,7,0)=(7);   
//#2(,2,0)=(3);   
//#(C,10,0)=_(01.,1);   
//#(C,10,0)=_(2,.,1);   
#Month(,2,0)=(8); 
#Year(,4,0)=(9); 
#dn(C,10,0)=_(Month,.,Year); 
#Date(,2,0)=(6,D1); 
#dk(C,10,0)=R_String(          );         
$BEG_SCRIPT 
  sprintf(dn,"01.%02d.%4d",atoi(Month),atoi(Year));
  sprintf(dk,"%02d.%02d.%4d",atoi(Date),atoi(Month),atoi(Year));
$END_SCRIPT 
#(N,3,0)=_();                      //  ࠭   
&(N,3,0)=1;  
&PL1(N,5,0)=0;  
$(_GT(-50))  
  &=0;    
$_  
&(N,5,0)=0;   
#S(C,2,0)=_(2,0);   
#RES(N,4,0)=_(S,* );   
#1(C,40,0)=NameSrc(S);   
                                                                                       ஢ ଠ N -49   
                                                                                          ⢥ত ⠭   
                                                                                                 ᪮ ᨨ   
                                                                                                  06.04.2001 N 26   
   
                                                                                                 ------------------   
                                                                                                 |             |   
                                                                                                 |----------------|   
                                                                                   ଠ   |    0301009     |   
   @ORG                                                                                          |----------------|   
   ________________________________________________                                        | @          |   
                ࣠樨                                                          |----------------|   
                                                                                                 |                |   
   @                                                                                     ------------------                     
                                                              
             ୮ ࠧ   
   
        ப  "_____" __________________ 20___   "_____" _________________ 20___    
   
   㬬 @1                                                          (@         . @  .)   
         @2                                                             
   
   㪮⥫ ࣠樨   @                                         @                 
                              ---------                -----------------     -------------------   
                                                             ஢    
   
    壠                   @                  
                     ---------------   -------------------    ----------------------------- -----------------------   
                                ஢     |          |       | |    ਮ   |   
                                                              |   㬥   |⠢| |---------------------|   
   "_____" ____________________ 20__                      |               |           | |         |        |   
                                                              |---------------|-----------| |----------|----------|   
                                -   |@        |@     | |@dn       |@dk       |   
                                                              ----------------------------- -----------------------   
   
$ (1-_EQ(RES))   
                             筨 䨭஢: @1       
$_   
   
&(N,5,0)=1;   
#PL1=_();   
$()  
  $_   
$_  
$}(3. )  
 @       
//  蠯 ᫥   
&I=1;   
#STR(C,500,0)=R_String();   
#STRITN(C,500,0)=R_String();  // SVN 
#STRITU(C,500,0)=R_String();  // SVN 
&ITOGVN(N,11,2)=0; // SVN 
$   
#STR=R_String(SNI@I);   
@STR   
&I=@I+1;   
$(14-@I)   
//   ᫥                                           
$   
  #=_(0,); //   浪   
  #TNLS=_(1,); //    
  #=_(TNLS,10000);   
  #PROF(C,20,0)=_( ,); //    
  #(N,11,2)=_(NVN,); // ᥣ ᫥   
  &ITOGVN=ITOGVN+; // SVN 
  #STR=_(,|);   
  #G1(N,3,0)=_();  
  #G2(N,3,0)=_();  
  #RD1(N,7,0)=_(1,@RSIM     ,0,0); //     
  #STAVKA(N,11,2)=R_Tarif(0,3); // ⠢   
  #RD2(N,7,0)=_(1,@VSIM     ,0,0);    
  #RD3(N,7,0)=_(1,@SSIM     ,0,0);    
  &RD2=RD2+RD3; // 室    
$(_EQ(2-G1)+_EQ(3-G1)) // 䭨  
  $(_EQ(1-G2)) //   
    #STAVKA=R_Tarif(0,2);  
  $_  
  $(_EQ(2-G2)) // ᮢ  
    #STAVKA=R_Tarif(0,1);  
  $_  
$_  
$(_EQ(2-G2))  
  #RD1=_(2,@RSIM     ,0,0); //     
$_  
  &COUNT=NVN-NPN;   
  &XV(V,2,0)=COUNT;   // SVN 
  &(N,3,0)=NVN-1;   
  $   
    #TMP(N,11,2)=_( ,);   
    &ITOG@XV(N,11,2)=ITOG@XV+TMP;  // SVN 
    #STR=_(TMP,|,STR);   
    &XV=XV-1;         
    &COUNT=COUNT-1;   
    &=-1;   
  $(COUNT)   
  #STR=_(|,,|,TNLS,|,PROF,|,STAVKA,|,RD1,|,RD2,|,STR);   
@SNI12   
@STR   
  #=_();   
  $(_LT(0-(-+4))*_GT(--1))   
//=@          =@           =@            =@   
@SNI01   
&COUNT=NVN-NPN;     // SVN 
&XV(V,2,0)=COUNT;   // SVN 
#STRITN=_(ITOGVN,STRITN);  // SVN 
$          // SVN 
  #STRITN=_(ITOG@XV, ,STRITN);  // SVN 
  &XV=XV-1;         // SVN 
  &COUNT=COUNT-1;   // SVN       
$(COUNT)        // SVN  
$(_EQ(RITOG))   
 
$  
#STRITN=_(                                             ⮣       ,STRITN);  // SVN 
@STRITN 
$_   
&COUNT=NVN-NPN;     // SVN 
&XV(V,2,0)=COUNT;   // SVN 
$          // SVN 
  &ITOG@XV=0; // SVN  
  &XV=XV-1;           // SVN 
  &COUNT=COUNT-1;     // SVN     
$(COUNT)          // SVN 
&ITOGVN=0;          // SVN 
&COUNT=NVN-NPN;     // SVN 
&XV=COUNT;          // SVN 
#STRITN=R_String(); // SVN  
$_   
    &=+1;   
  @   
    //  蠯 ᫥   
    &I=1;   
    $   
      #STR=R_String(SNI@I);   
@STR   
      &I=@I+1;   
    $(14-@I)   
//   
  $_   
  &=+1;   
$(_GT(-))   
@SNI01   
#=_();   
$(_GT(11-(-)))   
$_   
$_   
//&COUNT=NKV-NPN+1;    
&COUNT=NVN-NPN;     // SVN 
&XV(V,2,0)=COUNT;   // SVN 
#STRITN=_(ITOGVN,STRITN); 
$          // SVN 
  #STRITN=_(ITOG@XV, ,STRITN);  // SVN 
  &XV=XV-1;         // SVN 
  &COUNT=COUNT-1;   // SVN 
$(COUNT)        // SVN 
$(_EQ(RITOG))   // SVN 
ᥣ ⮢  @   
$  // SVN 
  #STRITN=_(ᥣ ⮢   ,,                          ⮣      ,STRITN);  // SVN 
@STRITN 
$_  // SVN 
&COUNT=NVN-NPN;     // SVN 
&XV(V,2,0)=COUNT;   // SVN 
$          // SVN 
  &ITOG@XV=0;       // SVN  
  &XV=XV-1;           // SVN 
  &COUNT=COUNT-1;     // SVN     
$(COUNT)          // SVN 
   
    饩 ⥦    
   믫祭 ___________________________________________ . _____ . (_____ . ____ .)   
                 㬬 ய   
   
    ஢ ______________________________________ . _____ . (_____ . ____ .)   
                    㬬 ய   
//   
&=0;   
&=1;   
&(N,12,2)=0;   
$_   
$(_EQ())  
  $  
  
    &PL1=PL1-1;  
  $(PL1)  
$_  
 @       
//  蠯 㤥ঠ   
&I=1;   
$   
#STR=R_String(SUI@I);   
@STR   
&I=@I+1;   
$(14-@I)   
//   㤥ঠ   
&(N,5,0)=0;   
&(N,5,0)=0;   
$   
  #(C,20,0)=_( ,);   
  #STR=_(,|               |);   
  &COUNT= - NPU;   
  &XV(V,2,0)=COUNT; 
  &(N,3,0)= -1;   
  $   
    #TMP(N,11,2)=_( ,);   
    &ITOG@XV(N,11,2)=ITOG@XV+TMP; 
    #STR=_(TMP,|,STR);   
    $(_EQ(NKV-))   
      &=+TMP;   
    $_   
    &= -1;   
    &XV=XV-1; 
    &COUNT=COUNT-1;   
  $(COUNT)   
  #STR=_(|,STR);   
@SUI12   
@STR   
  #=_();   
  $(_LT(0-(-+4))*_GT(--1))   
@SUI01   
$()   
&COUNT= - NPU;   
&XV(V,2,0)=COUNT; 
#STRITU=_(  ⮣  ); 
$ 
  #STRITU=_(ITOG@XV, ,STRITU); 
  &XV=XV-1; 
  &COUNT=COUNT-1;   
$(COUNT) 
#STRI(C,500,0)=_(          ⮣  ,);  
#STRP(C,12,0)=R_String();  
&COUNT=-NPU-3;  
$  
#STRI=_(STRP,STRI);  
&COUNT=COUNT-1;  
$(COUNT)  
$(_EQ(RITOG)) 
@STRI  
$ 
#STRITU=_( ,STRITU); 
@STRITU 
$_ 
&COUNT= - NPU;   
&XV(V,2,0)=COUNT; 
$ 
  &ITOG@XV=0; 
  &XV=XV-1; 
  &COUNT=COUNT-1;   
$(COUNT) 
#SCRIPTU=R_String(); 
//⮣    @   
&=0;   
$   
   
$_   
$_   
    &=+1;   
  @   
    //  蠯 㤥ঠ   
    &I=1;   
    $   
      #STR=R_String(SUI@I);   
@STR   
      &I=@I+1;   
    $(14-@I)   
//   
  $_   
  &=+1;   
$(_GT(-))   
@SUI01   
$()   
&COUNT= - NPU;   
&XV(V,2,0)=COUNT; 
#STRITU=_(  ⮣  ); 
$ 
  #STRITU=_(ITOG@XV, ,STRITU); 
  &XV=XV-1; 
  &COUNT=COUNT-1;   
$(COUNT) 
#STRI(C,500,0)=_(          ⮣  ,);  
#STRP(C,12,0)=R_String();  
&COUNT=-NPU-3;  
$  
#STRI=_(STRP,STRI);  
&COUNT=COUNT-1;  
$(COUNT)  
$(_EQ(RITOG)) 
@STRI  
$ 
  #STRITU=_( ,STRITU); 
@STRITU 
$_ 
//⮣    @   
&=0;   
$   
   
$_   
#=_();   
$(_GT(11-(-)))   
$_   
$_   
                     
   
   믫                                              室   
   ந _________         ________   ___________    ᮢ थ N _______  "_____" ___________ 20__    
                         ஢   
                                              
   
   壠 ____________       ___________________   
                         ஢    
                                                        "_____" ________________ 20__    
                                               
   
  
${(1.樨  ன)  
// 樨  ன ⭮-⥦  
// 
//  ࠨ  ࠧ⮩ , ⫨稥 ⮨ 
//  ⮬,  ⮫殢  ᫥     6,  ⮫殢  
// 㤥ঠ     4. ᫥ ⮫ ᫥  
// 䨪஢  ("⮨ । 樠  
// ਠ ").  ⮫ 㤥ঠ ⠪  䨪஢ 
//  ("  室"). 
// ਭ ⮫殢   11. 
//  ன  ᯮ 7- ⮫ ⠡ 室. 
//  ᯮ짮  ਭ஢  ࠬ  㪠뢠: 
//  - ᦠ 
$}(1.樨  ன)  
