//-------------------------------------------------------
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
${(5. ⥫ ப ᯨ᪠)
  $(__,0);  // 0 (1,...) - ⢮ ய᪮ ப
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ)
$}(5. ⥫ ப ᯨ᪠)
${(6. ⥫ ⮫殢 ᯨ᪠)
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ 
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..)
$}(6. ⥫ ⮫殢 ᯨ᪠)
${(7. ਧ  )
  $(_," "); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
${(1.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪  ᯨ᪠
#NameP(C,128,0)=R_String();
$BEG_SCRIPT
  var Tabl = CreateObject("CurPrnTbl");
  Tabl.Sort_Field(1);
  var Param = CreateObject("ParamFuncRW");
  Param.IInitialW(static_cast_to_string(NameP),60,4," ,.;/\\\"");
  char Buf[256];
  centrovka("",77,Buf);
  print(Buf);
  centrovka("ࠡ⭨    ⮢   \"ୠ \" .",77,Buf);
  print(Buf);
  centrovka("___________________________________________________________",77,Buf);
  print(Buf);
  centrovka("(㪠   Visa Electron,Maestro,Visa Classic,MasterCard Standart)",77,Buf);
  print(Buf);
  for (int i = 0; i<Param.Count(); ++i)
  {
     centrovka(Param.Get(i),77,Buf);
     print(Buf);
  }
$END_SCRIPT

$}(1.  ᯨ᪠)
//${(砫 㬬)
  #=_(_);     //  砫 㬬
//$}(砫 㬬)
&(N,5,0)=0;
&(N,5,0)=1;                                 // 稪 ࠭
#(N,3,0)=_();                      //  ࠭
//${( ⠡)
  #=_(,,)             //  
  #=_(__);                 //  㬬  
//$}( ⠡)
&PrintPodn(N,2,0)=0;
$                                             //     ⠡
  //${(ப )
    #=_();                         // ਧ  
    $()
      #=_(_,,)  //   ப ⠡
      &PrintPodn=1;
    $_
  //$}(ப )
  &=+1;
  #(N,5,0)=_();                 // 稪 ப  
  $(_GE(+6-)+_EQ(-))
    //${(⮣ )
      #=_();            //  ⮣  .
      #=_(__);            //  ⮣  .
    //$}(⮣ )
    ${(3.  )
//   ⨬ ਥ 室 ⥪   
    $}(3.  )
    $(_LT(-))

@                              ___________________  @

@                           ___________________  @
                                         ..
      $_
      ${(2.  )
//   ⨬ ਥ 室 ⥪  
      $}(2.  )
      //${( ⠡).   .
        #=_(,,)             //  
        #=_(__);                 //  㬬
      //$}( ⠡).   .
    $_
  $_
$(_GT(-))
//${(⮣ )
//  #=_(_)
//$}(⮣ )
${(4.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠
#Cnt(N,5,0)=_(0,-1);
⮣ 㤭:  @Cnt
#Prop(C,75,0)=_(Cnt,0);
$BEG_SCRIPT
   var Razb = CreateObject("ParamFuncRW");
   Razb.IInitial(static_cast_to_string(Prop)," ",20);
   int n=Razb.Count();
   string New;
   for (int idx=0; idx<n-1; ++idx)
      New = New+" "+Razb.Get(idx);
   int low = atoi(Cnt)%10;
   int Ten = atoi(Cnt)%100;
   string Dop = "㤭";
   if ( Ten<5 || Ten>20 )
   {
      switch ( low )
      {
         case 1: Dop = "㤭"; break;
         case 2:
         case 3:
         case 4: Dop = "㤭"; break;
      }
   }
   Prop=New+" "+Dop;
$END_SCRIPT
(@Prop                                                                    )

@                              ___________________  @

@                           ___________________  @
                                         ..
$}(4.  ᯨ᪠)
$LF