//----------------- ----------------- 
#(N,5,0)=_(0); // ᫮ ࠡ ᥩ  ⠡ 
$(_EQ()) 
  $ 
$_ 
${(6. ਧ  ) 
  $(_,"0"); // " " (஡) -   㫨, "0" -  
$}(6. ਧ  ) 
//${(7. ਧ  ) 
  #_(N,1,0)=__(); 
  //&(N,1,0)=1; //1-  , 0- 䠬  樠 
//$}(7. ਧ  ) 
&(N,5,0)=1;                                 // 稪 ࠭ 
#(N,3,0)=_();                      //  ࠭ 
//&(N,3,0)=19;                      //  ࠭ 
#(N,3,0)=(8); #(N,4,0)=(9); 
#(C,8,0)=_(); 
${(1.  ) 
                                 ᫥ ଠ  -53
                                ⢥ত ⠭ ᪮ ᨨ
                                 30.10.97  71
                                                                 
                                                           -----------------
                                             ଠ   |    0301011    |
                                                           |---------------|
                                           ⠢ |    |    |     |
                                                           |---------------|
#(N,8,0)=_(,37);   // 颥 ᫮ ப
$(_GT())
  &(N,8,0)=0;
  #(C,37,0)=_();
$
  #(C,37,0)=R_String(.....................................);
$_
 ࣠ @................................   |               |
                                                           |---------------|
#=_();
#(N,8,0)=_(1);
$(_GT())
  #(C,31,0)=_(@   );
$
  #(C,31,0)=R_String(...............................);
$_
 ୮ ࠧ @....................... |               |
                                                           |---------------|
                                    ᯮ騩  |               |
                                                           |---------------|
#(C,15,0)=_(2);                             |               |
                                    楫 祭 |@.........|
                                                           |---------------|
                                               樨 |               |
                                                           -----------------
 筨 䨭஢ ..................................
#(N,3,0)=_(SU_);        //  ⮫  㬬  
#(N,15,2)=_(,0);   // 㬬  
      ப
  .............  .............. 2000 .
$(_GT())
  #(C,160,0)=_();
  #(N,8,0)=_(,66);   // 颥 ᫮ ப
  &(N,8,0)=0;
  $
    #(N,66,0)=_();
 @........................................................
      &=+1;
    $(_LT(-))
    #=_();
$
 ..................................................................
 ..................................................................
$_
&(N,15,0)=_Long(); &(N,4,0)=(-)*100;
#(,15,0)=DIVIDER_INSERT();
 (@            @ )

#(C,33,0)=R_String();
 @                         .............. @

#(C,33,0)=R_String();
 @                      .............. @

 "....".............. 2000 .


#(N,8,0)=_(9);
$()
                        @
$
                        ........
$_
#(C,10,0)=_(5);
#(C,18,0)=_();
#=_();
$()
                      @            .
$
                     "....".............. 2000 .
$_
#(N,6,0)=_();                   // 稪 ப  
$

  #=_();
$(_GT(-))
$_
&=+1;
$}(1.  ) 
 
${(2.  ⠡) 
                                                                   @ 
$(_) 
---------------------------------------------------------------------------- 
   | . |                                        |               |ᯨ᪠ 
  | |        , , ⢮          |     㬬     | - 
   |      |                                        |               |祭 
---|------|----------------------------------------|---------------|-------- 
 1 |  2   |                  3                     |       4       |   5 
---------------------------------------------------------------------------- 
$ 
---------------------------------------------------------------------------- 
|   | . |                               |               |ᯨ᪠|ਬ-| 
|  | |    , , ⢮     |     㬬     | - |砭 | 
|   |      |                               |               |祭   |      | 
|---|------|-------------------------------|---------------|--------|------| 
| 1 |  2   |              3                |       4       |   5    |  6   | 
---------------------------------------------------------------------------- 
$_ 
  &(N,15,2)=0; 
$}(2.  ⠡) 
${(3.    ⠡) 
&(N,6,0)=0; 
$                                        //     ⠡ 
  #=_();                         // ਧ   
  $() 
    &(N,3,0)=+1; 
    #(N,3,0)=_(C_FIO); 
    #(N,6,0)=_(,); 
    &(N,6,0)=; 
    $(_) 
      #=_(,1); 
      #(,40,0)=R_Name(1); 
    $ 
      #(N,3,0)=_(FIO); 
      #(,31,0)=_(,); 
    $_ 
    #(N,3,0)=_(SU_); 
    #(N,15,2)=_(,); 
    #(C,15,2)=DIVIDER_INSERT(); 
    &=+; 
    $(_) 
@|@   |@                                    |@          |              | 
---------------------------------------------------------------------------- 
    $ 
|@|@   |@                           |@          |        |      | 
---------------------------------------------------------------------------- 
    $_ 
  $_ 
  &=+1; 
  #(N,6,0)=_();                   // 稪 ப   
  $(_GT(+4-)+_EQ(-)) 
    #(C,15,2)=DIVIDER_INSERT(); 
    $(_) 
 ⮣  :                                    @ 
    $ 
 ⮣  :                            @ 
    $_ 
    &=0; 
    $(_LT(-)) 
      $_ 
      &=+1; 
                                                                   @ 
      $(_) 
---------------------------------------------------------------------------- 
   | . |                                        |               |ᯨ᪠ 
  | |        , , ⢮          |     㬬     | - 
   |      |                                        |               |祭 
---|------|----------------------------------------|---------------|-------- 
 1 |  2   |                  3                     |       4       |   5 
---------------------------------------------------------------------------- 
      $ 
---------------------------------------------------------------------------- 
|   | . |                               |               |ᯨ᪠|ਬ-| 
|  | |    , , ⢮     |     㬬     | - |砭 | 
|   |      |                               |               |祭   |      | 
|---|------|-------------------------------|---------------|--------|------| 
| 1 |  2   |              3                |       4       |   5    |  6   | 
---------------------------------------------------------------------------- 
      $_ 
    $_ 
  $_ 
$(_GT(-)) 
$}(3.    ⠡) 
${(4. ⮣ ) 
  #(C,15,2)=DIVIDER_INSERT(); 
  $(_) 
 ⮣:                                             @ 
  $ 
 ⮣:                                     @ 
  $_ 
                                              ⢮ ⮢ @ 
$}(4. ⮣ ) 
${(5.  ) 
 
  ⠢ ............../ .. ९ / 
 
 㪮⥫ ⭮ 㯯 ............../ .. ᫠ / 
 
  饩  ⥦  
 믫祭  㡫...................................................... 
 ..................................................(.............) 
  ஢ 㡫.................................................. 
 ..................................................(.............) 
 
 믫 ந   .............   ............   ................. 
 
 ஢ਫ 壠 .............   ............... 
 
 "...."............. 2000 . 
$}(5.  ) 
$ 
 
  #=_(); 
$(_GT(-)) 
$_ 
$