//-----------㠫 ᢥ  ᨮ 䮭----------------
//------------------ 室 ଠ ----------------------------------
#(N,3,0)=_();                      //  ࠭
#(N,5,0)=_(0);      // ᫮ ᥩ  ⠡
$(_EQ())
  $
$_
#=_(1);
${(1. ਧ  )
$(_," "); // " " (஡) -   㫨, "0" - 
&(N,2,0)=1;// 1- ⮣ 㬬 客 ᮢ  㫨,0- 
&(N,2,0)=1;// 1- ⮣ 㬬 ᫥  㫨,0- 
&(N,2,0)=0; // 1-  ,0-⮫쪮 ।  
// ,  ᪮, ᠭ ᫥⥫쭮 ᨬ, 
// 㤥    祭.
#(C,81,0)=R_String(._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.);
&MAXST(N,2,0)=12;    // ᨬ쭮 ⢮ ப  㤮 ⠦
$}(1. ਧ  )
${(4. ਧ  )
  &1(N,5,0)=2; // 1=2 -    ᫥, 1=0 -  
  &2(N,5,0)=2; // 2=2 -    ᮢ  , 2=0 -  
$}(4. ਧ  )
${(3. )
  #FLAGPER(C,1,0)=_(FLAGPERED,0);
  #=_(FLAGPER);
  $(_EQ())
       $(",         ");
  $_
  #(N,2,0)=_(15,9,65,15, ?, ⥩, );
  $(_EQ(-27))
    $
  $
$}(3. )
//-----------------------------------------------------------
&(N,5,0)=0;
#05(C,9,0) =_(Year,);
#(N,2,0)=_(MonthBeg); #(N,2,0)=_(MonthEnd);
// ।  ⭮ ⠫
#(N,2,0)=_(,);#(N,2,0)=_(,);
#(C,39,0)=R_String();
$(_LE(-1)*_GE(-3))
  #=_(!SPACE,,I [X]);
  &FKV1(N,2,0)=1;
$
  #=_(!SPACE,,I [ ]);
  &FKV1(N,2,0)=0;
$_
$(_LE(-4)*_GE(-6))
  #=_(!SPACE,, II [X]);
  &FKV2(N,2,0)=1;
$
  #=_(!SPACE,, II [ ]);
  &FKV2(N,2,0)=0;
$_
$(_LE(-7)*_GE(-9))
  #=_(!SPACE,, III [X]);
  &FKV3(N,2,0)=1;
$
  #=_(!SPACE,, III [ ]);
  &FKV3(N,2,0)=0;
$_
$(_LE(-10)*_GE(-12))
  #=_(!SPACE,, IV [X]);
  &FKV4(N,2,0)=1;
$
  #=_(!SPACE,, IV [ ]);
  &FKV4(N,2,0)=0;
$_
#=_(!SPACE,, . ,05, .);
//--------------------------------------------------------
$(_EQ()) //  ࠢ
//-----------------------------------------------------------
//--------------------------------------------
$                      //     ⠡
  &Z(V,2,0)=1;
  $
    #TAI@Z(N,13,2)=_(TAX@Z,);
    #TAXPC@Z(N,13,2)=_(TAXP@Z,);
    &Z=Z+1;
  $ (_GE(12-Z));
  //
  #01(C,9,0)=_(NumInPack,);
  #(N,10,0)=_(NumPack,);
  #(N,10,0)=_(NumDoc,);
  #(C,4,0)=_(KodCatPay,);
  #13(C,40,0)=R_String();
// ६   ⮣ 㬬    
  &01(N,14,@1)=0; &02(N,14,@1)=0;
//
  &Z(V,2,0)=1;
  $
    &SCI@Z(N,6,0)=0;
    &INC@Z(N,13,2)=0;
    &ILL@Z(N,13,2)=0;
    #TR@Z(C,3,0)=R_String();
    &Z=Z+1;
  $ (_GE(12-Z))
  #(C,255,0)=_(income,);
  #(C,255,0)=_(illness,);
  #(C,255,0)=_(tarif,);
  &Z(V,2,0)=1;
  #(C,30,0)=R_String();
  $
    #SCI@Z=_(SCH@Z,);
    #TEMP(N,13,2)=_(,Z,1);
    &INC@Z=TEMP;
    #TEMP(N,13,2)=_(,Z,1);
    &ILL@Z=TEMP;
    #TEMP(C,1,0)=_(,Z,1);
    #TR@Z(C,3,0)=_(  ,TEMP);
    &Z=Z+1;
  $ (_GE(-Z))
  #INC13(N,13,2)=_(incomeIt,);
  #ILL13(N,13,2)=_(illnessIt,);
  #TAI13(N,13,2)=_(TAXIt,);
  #TAXPC13(N,13,2)=_(TAXPIt,);
  #DOLGC(N,13,2)=_(DOLG,);
  //----------㫨 ᫥     㬥⮢ ஬ ࢮ
  $(_NE())
    &Z(V,2,0)=1;
    $
      &TR@Z=0;
      &Z=Z+1;
    $ (_GE(12-Z));
    &DOLGC=0;
  $_
  &Z(V,2,0)=1;
  $(_NE(Z-1))
    $
      &INC@Z=0;
      &ILL@Z=0;
      &Z=Z+1;
    $ (_GT(-Z));
  $_
  &Z(V,2,0)=+1;
  $(_NE(Z-13))
    $
      &INC@Z=0;
      &ILL@Z=0;
      &Z=Z+1;
    $ (_GE(12-Z));
  $_
//--------------------------------------------------------
${(2. ଠ ࠢ)
 ଠ -10               ________            ______

   @01
  㬥⮢ -3, । ࠡ⮤⥫  
Ŀ
  ࠡ⮤⥫, ।饣 㬥:                            
 樮   @                                        
  @                 @                                     
  ࣠樨  @13                                            
 (⪮)                                                                 
  ਮ: @                                                  

 ⢮ 祪  室묨 㬥⠬ -3: @
 ⢮ 室 㬥⮢ -3:           @
   㯫 ᮢ  
   ⭮ ਮ:                     @DOLGC

 騥 ᢥ ࠡ⪥ (ࠦ)  室, 뢠  
 祭 ᨨ  ⥣ਨ 客 : @
Ŀ
      ⥣ਨ .      ࠢ筮 ( 楫  ࣠樨)   
     Ĵ
泇ࠡ⮪      .. ᮡ.।. ਧ.᫥    ᫥  
     (ࠦ.), ६. - ᫥-ᮢ     ᮢ     
     室         㤮ᮯᮡ.ࠡ⭳                       
Ĵ
ﭢ.  @INC01       @ILL01       @SCI01@TR01@TAI01       @TAXPC01     
Ĵ
䥢. @INC02       @ILL02       @SCI02@TR02@TAI02       @TAXPC02     
Ĵ
  @INC03       @ILL03       @SCI03@TR03@TAI03       @TAXPC03     
Ĵ
.  @INC04       @ILL04       @SCI04@TR04@TAI04       @TAXPC04     
Ĵ
   @INC05       @ILL05       @SCI05@TR05@TAI05       @TAXPC05     
Ĵ
  @INC06       @ILL06       @SCI06@TR06@TAI06       @TAXPC06     
Ĵ
  @INC07       @ILL07       @SCI07@TR07@TAI07       @TAXPC07     
Ĵ
.  @INC08       @ILL08       @SCI08@TR08@TAI08       @TAXPC08     
Ĵ
ᥭ. @INC09       @ILL09       @SCI09@TR09@TAI09       @TAXPC09     
Ĵ
.  @INC10       @ILL10       @SCI10@TR10@TAI10       @TAXPC10     
Ĵ
. @INC11       @ILL11       @SCI11@TR11@TAI11       @TAXPC11     
Ĵ
.  @INC12       @ILL12       @SCI12@TR12@TAI12       @TAXPC12     
Ĵ
⮣ @INC13       @ILL13         X     X  @TAI13       @TAXPC13     


 
   㪮⥫           ஢ 
 @                                                @

                                      .. 

$LF 
$}(2. ଠ ࠢ)
  &=+1;
$(_GT(-))
$_  // ᫥ 롮 ० (_EQ())
//----------------------------------------------------
$(_EQ(-1)) //  
//----------------------------------------------------
//
#(C,20,0)=(61);
#13(C,40,0)=R_String();
#(C,14,0)=R_String();
#LastPart(C,10,0)=_(,3,-);
#=_(13);
$(_EQ())
     #13=R_String();
$_
#=_(13,44);
#1(C,44,0)=_(0);
$(_GT(-1))
  #2(C,44,0)=_(1);
$
  #2(C,10,0)=R_String(  );
$_
#=_(); 
#NumInPack(C,10,0)=_(,);
#NumP(C,5,0)=_(NumInPack,1,-);
${(5. ଠ  㬥⮢)
 ଠ -6             ________         ________

  㬥⮢, । ࠡ⮤⥫  
Ŀ
|     ࠡ⮤⥫, ।饣 㬥:                  |
| 樮   @                                       |
|  @               @                                |
|           @1                                       |
|                       @2                                       |
|  ਮ: @                                           |

   ਬ砭: ._._._._._._._._._._._._._._._._._._._._._._._.
               ._._._._._._._._._._._._._._._._._._._._._._._.

Ŀ
|         室饣 㬥      | ⢮ 㬥⮢ |
|                                              |    |
|                                              |        窥         |
Ĵ
|  客                   |                       |
Ĵ
|    客 ᢨ⥫⢠ |                       |
Ĵ
|   뤠 㡫 客      |                       |
| ᢨ⥫⢠                                |                       |
Ĵ
| 㠫 ᢥ  㤮 ⠦,    |                       |
| ࠡ⪥ (ࠦ), 室          |                       |
| ᫥ 客             |                       |
Ĵ
|    㬥⮢ -3,     |        @          |
| । ࠡ⮤⥫               |                       |
Ĵ
|                                              |                       |
Ĵ
|          ⮣ 㬥⮢  : |        @          |


     窨 㬥⮢, ᮯ஢ 設 ⥫
   (᪥⮩):
  窨 㬥⮢, ᢮ ࠡ⮤⥫:  @NumP
  ॣ樨 窨  . ࣠  ._._._._._._./._._._._.

     窨 㬥⮢, ᮤঠ饩 "㠫 ᢥ
    㤮 ⠦, ࠡ⪥ (ࠦ), 室  . 
      客 ":
   ࠡ⪥ (ࠦ), 室   ਮ,
 뢠  祭 ᨨ (⮣  窥 㬥⮢):
Ŀ
 ᥣ ᫥           ⮬ ᫥ ᮡ  ६    
                          㤮ᯮᮡ  ⨯      
͵
                                                              
;
ᯮ⥫                                     ஢ 
 ________________________________       ______         ________
 
  㪮⥫             ஢ 
 @                                                 @

  @                        ..
$}(5. ଠ  㬥⮢)
$_  // ᫥ 롮 ० (_EQ(-1))
///////////////////////////////////////////////////////
$_  // ᫥ 롮 ० (_EQ(-27))
$