//------------- ࠢ  । . -----------------
#(N,5,0)=_(0);      // ᫮ ᥩ  ⠡
$(_EQ())
  $
$_
${(1. ਧ  )
&FlInfoP(N,2,0)=1; // 1 -  ଠ  ।⨨, 0 - 
&FKop(N,2,0)=1;    // 1 -   ⤥쭮, 0 - 
&FPRk(N,2,0)=0;    // 1 -  / ⤥쭮, 0 - 
// ,  ᪮, ᠭ ᫥⥫쭮 ᨬ, 
// 㤥    祭.
#(C,81,0)=R_String(____________________________________________________________________);
$}(1. ਧ  )
&(N,5,0)=0;
#(N,2,0)=_(FCf);    #(N,2,0)=_(FCi);
#(N,2,0)=_(FCo);    #(N,2,0)=_(C_FIO);
#(N,2,0)=_(FCdata_rb); #(N,2,0)=_(FCdata_uv);
#(N,2,0)=_(SrZarplata); #MTEK(N,4,0)=(0);
  #(C,121,0)=_(!SPACE,);
  #=_(,80);
  &I(V,2,0)=0; #01(C,80,0)=_(0); #02(C,80,0)=R_String();
  $(_GT(-1))
    #02=_(1);
  $_
&Name(N,2,0)=;
  #=_();
  #03(C,80,0)=_(!SPACE,);
  // &J(V,2,0)=15;
$                                      //     ⠡
    #=_();                     // ਧ  
    #(N,9,0)=_(,);
    $(*)
#04(C,41,0)=_(,);  #05(C,41,0)=_(,);
#06(C,41,0)=_(,);  #(C,255,0)=_(,);
#(C,10,0)=_(,); #(C,20,0)=_();
#=_();
         $(_EQ())
            #(C,30,0)=R_String("__"_._._._._._._._.199__ );
         $_
#(C,10,0)=_(,); #(C,20,0)=_();
#=_();
         $(_EQ())
            #(C,30,0)=R_String("__"_._._._._._._._.199__ );
         $_
#(C,20,0)=(61);
#(C,100,0)=_(!SPACE,04, ,05, ,06);
#CountMes(N,2,0)=_(,1,2); &I=-1;
&K(V,2,0)=0; &S(V,2,0)=0;
$
   &I=I+1;
   #SumMes(C,40,0)=_(,I+2,2);
   $(_EQ(CountMes-I))
      #SumSredn(N,14,2)=_(,I+2,2);
      $ (_EQ(FKop-1))
         &SumRub(N,14,0) = _Long(SumSredn); &Ko(N,3,0)=(SumSredn-SumRub)*100.;
      $
         &SumRub(N,14,2) = SumSredn;
      $_
      #SumProp(C,120,0)=_(SumSredn,1);
  #(N,2,0)=_(SumProp,60);
  #07(C,60,0)=_(0); #08(C,60,0)=R_String();
  $ (_GT(-1))
     #08(C,60,0)=_(1);
  $_
  #=_();
   $
          #StrSum@S(C,14,0)=_(SumMes,1,1);
          #StrSumRK@S(C,14,0)=_(SumMes,2,1);
          #NumMes(N,4,0)=_(SumMes,3,1);
          #StrMes@S(C,8,0)=(5,NumMes-MTEK);
          &S=S+1;
        $(_GE(S-3))
          &S=0;
#StrSrZ@K(C,80,0)=_(StrMes00, - ,StrSum00,StrMes01, - ,StrSum01,StrMes02, - ,StrSum02);
#StrSrRK@K(C,80,0)=_(StrMes00, - ,StrSumRK00,StrMes01, - ,StrSumRK01,StrMes02, - ,StrSumRK02);
          &K=K+1;
        $_
   $_
$(_LT(I-CountMes))
#SumSrednRK(N,14,2)=_(,I+3,2);
      &I=1;
      $
         #=_(@I, , 0);
         $(_EQ())
            #@I=R_String();
         $_
         &I=I+1;
      $ (_LT(I-9))
${(2. ଠ )
      ⠬ ।                                 ࠢ
                                                  㪮⢮ 浪
$ (_EQ(FlInfoP))
( 㪠  ।                 ᫥ । ࠡ⪠,
    ⥫䮭 㪮⥫)                       ⢥ত ⠭
                                          㤠  樠쭮 ࠧ 
                                                           N-1  16.01.98 .
$
  #Adr(C,121,0)=();
  #=_(Adr,40);
  #A01(C,40,0)=_(0); #A02(C,40,0)=R_String();
  $(_GT(-1))
    #A02=_(1);
  $_
 @A01                                          ᫥ । ࠡ⪠,
 @A02                                            ⢥ত ⠭
                                          㤠  樠쭮 ࠧ 
 ⥫. @03                                                 N-1  16.01.98 .
 @
$_


                                   
       । ࠡ⭮   । ࠧ ᮡ 
    ࠡ  ⨯  ਮ 䯮⮢, ९⮢ 
         襭 䨪樨  ࠢ 㦡 

  뤠 @
         
//                        (䠬, , ⢮)
   ⮬,  () ࠡ⠫(), 室() 㦡 
  @01
  
$(_GT(Name-1))
  @02
  
$_
   @                       @                

  C। ࠡ⮪ (室)  ᫥    
      $ (_EQ(FKop-1))
     ⠢ @SumRub        . @Ko .
      $
     ⠢ @SumRub        㡫
      $_
   @07
  $ (_GT(-1))
   @08
  $_
&I=0;
$(_LT(I-K))
  $
    #StrSrZ(C,80,0)=R_String(StrSrZ@I);
  @StrSrZ
    &I=I+1
  $(_LT(I-K))
$_
$(_GT(FPRk))
      $ (_EQ(FKop-1))
         &SumRub(N,10,0) = _Long(SumSrednRK); &Ko(N,3,0)=(SumSrednRK-SumRub)*100.;
      $
         &SumRub(N,10,2) = SumSrednRK;
      $_

      $ (_EQ(FKop-1))
   ⮬ ᫥ ࠩ 樥 @SumRub    . @Ko .:
      $
   ⮬ ᫥ ࠩ 樥 @SumRub    㡫:
      $_
&I=0;
$(_LT(I-K))
  $
    #StrSrZ(C,80,0)=R_String(StrSrRK@I);
  @StrSrZ
    &I=I+1
  $(_LT(I-K))
$_
$_

  ࠢ 뤠  ᭮ 楢 .

   ᮮ⢥⢨  騬 ⥫⢮  ⢥⢥ 
  ⮢୮ ᢥ, 㪠  ,  㪮⥫  
  壠 । (०, ࣠樨).

  㪮⥫ ࣠樨                     (@                     )


    ..


   壠                            (@                    )

  ࠢ 뤠 @            .

  䮭 壠ਨ:  @03
       $_
$}(2. ଠ )
    $_
    &=+1;
$(_GT(-))
$
