

     13.    
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    ⠭     ⨯  -    ७ ⠭,
। ࡮-᪠.   ⠭    ᯮ짮-
 筮 ⠪ ,   ६ ⮣  ⨯.  ⠭ 
 ⨯  ⮬ ᯮ짮   "樠-
 ६",  ⮬   祭 ⠭  㪠
⨯ ।,    祭  ६    ।   
ᢠ  祭.   㦭, 筮, ᢠ
ࠧ 祭 ⠭  㪠 ⨯,  ᫨  -
 । ﭭ.

    ᯮ짮 ⠭     ⨯  㬥蠥  
ணࠬ , ᮡ ᫨ ⠭ ᯮ  ண-
ࠬ , ᪮ ⠭  㪠 ⨯ 砥 
ணࠬ ⮫쪮  ࠧ,   ⠭  ⨯  
 ᯮ짮.

    ⠭    ⨯ ।  ⠭⠬
 ⨯  (.  ࠧ " । ⠭"  
5)  ⥬ ᪫祭,  㪠뢠  ⮫쪮 祭 -
⠭,     ⨯.   । ⠪ ⠭ 뢠
䨪,  ⥬ 稥, ᫥  - 䨪 -
,  ࠢ⢠  祭 ⠭.


     ⠭   ⨯
    ========================================

    ୠ ⠭   ⨯ -    ⠭,
ਭ    ⨯.

ਬ:
--------

    const
      NumberOfCards: Integer = 1267;
      Interest: Real = 12.67;
      Heading: string[7] = 'SECTION';
      Xon: Char = ^Q;

     ⨢  ⠭⠬  ⨯ ⠭  -
 ⨯  ᯮ짮  ⢥  䠪᪮  ࠬ-
-६    맮  楤    㭪樨.  ᪮
⠭   ⨯    ६  -
ﭭ  祭,      ᯮ짮  ।
㣨 ⠭  ⨯. , ᪮ Min  Max - ⠭
  ⨯, ᫥  :

    const
      Min: Integer = 0;
      Max: Integer = 50;
    type
      Range: array [Min..Max] of Integer;



     ⠭   ⨯
    ======================================

    묨 ⠭⠬        ⠭-ᨢ,
⠭-  ⠭-⢠.    ᯮ
 ஥ 樠஢  ⠡      ⮢,
८ࠧ   ..  騥  ࠧ  ᮤঠ  ஡
ᠭ    ⨯.


    ⠭-ᨢ
    -----------------

    । ⠭-ᨢ  ⮨     䨪
⠭,   ᫥ 稥  䨪 ।-
⥫쭮 । ⨯ ᨢ,    ᫥    -
⢠    祭   ⠭,   ᠭ     ⢮
⠭, ࠧ 묨  祭  㣫 ᪮.

ਬ:
--------

    type
      Status    = (Active,Passive,Waiting);
      StringRep = array [Status] of string[7];
    const
      Stat: StringRep = ('active','passive','waiting');

     ⮬ ਬ ।  ⠭-ᨢ  Stat,  
   ᯮ짮    ८ࠧ 祭 ⮣
⨯ Status   ᮮ⢥饥 ப ।⠢.  -
 Stat ⠪:

    Stat [Active] = 'active'
    Stat [Passive]= 'passive'
    Stat [Waiting]= 'waiting'

  ⠭-ᨢ   ,  ஬ FILE 
POINTER.  ⠭-ᨢ        
 ᨬ, ⠪   ப. , ।:

    const
      Digits: array [0..9] of Char =
              ('0','1','2','3','4','5','6','7','8','9');

      ᠭ  㤮 :

    const
      Digits: array [0..9] of Char = '0123456789';



     ⠭-ᨢ
    -----------------------------

     ⠭-ᨢ । ⥬ 祭
⠭  ७  ⤥ 㣫  ᪮,  ࠧ-
 묨.  ⠭  ᠬ  ७ ஢ -
 ᮮ⢥ ᠬ ࠢ ७.

ਬ:
-------

    type
      Cube = array [0..1,0..1,0..1] of Integer;
    const
      Maze: Cube = (((0,1),(2,3)),((4,5),(6,7)));
    begin
      Writeln (Maze[0,0,0],' = 0');
      Writeln (Maze[0,0,1],' = 1');
      Writeln (Maze[0,1,0],' = 2');
      Writeln (Maze[0,1,1],' = 3');
      Writeln (Maze[1,0,0],' = 4');
      Writeln (Maze[1,0,1],' = 5');
      Writeln (Maze[1,1,0],' = 6');
      Writeln (Maze[1,1,1],' = 7');
    end.


    ⠭-
    ----------------

    । ⠭-  ⮨      䨪
⠭,   ᫥ 稥  䨪 ।-
⥫쭮 । ⨯ ,     ᫥    -
⢠     祭    ⠭,   ᠭ      ᯨ᮪
⠭-, ࠧ ᨬ ";"  祭   -
 ᪮.

ਬ:
--------

    type
      Point      = record
                     X,Y,Z: Integer;
                   end;
      OS         = (CPM80,CPM86,MSDOS,UNIX);
      UI         = (CCP,SomethingElse,MenuMaster);
      Computer   = record
                     OperatingSystems: array [1..4] of OS;
                     UserInterface: UI;
                   end;
    const
      Origo: Point = (X:0; Y:0; Z:0);
      SuperComp: Computer =
                  (OperatingSystems:(CPM80,CPM86,MSDOS,UNIX);
                   UserInterface: MenuMaster);
      Planel: array [1..3] of Point =
                 ((X:  1; Y:  4; Z: 5),
                  (X: 10; Y:-78; Z:45),
                  (X:100; Y: 10; Z:-7));

    ⠭-祭   㪠뢠  ⮬  -
,  ஬    ।  ⨯  .  ᫨
 ᮤন  ⨯ FILE  POINTER,  ⠭ ⠪
⨯   .  ᫨   ਠ,  
⢥⢥  ᯥ䨪 ,  ᮮ⢥ ॡ-
 ਠ,   ணࠬ. ᫨ ਠ ᮤ-
  ਧ,  祭 ⮣    㪠.


    ⠭-⢠
    -------------------

    ⠭-⢮ ⮨     ᯥ䨪権
, ࠧ 묨  祭   ᪮-
. 䨪  -  ⠭  ࠦ, -
饥 १, ஥ ⮨   ⠭, ࠧ -
 ".." .

ਬ:
-------

    type
      Up  = set of 'A'..'Z';
      Low = set of 'a'..'z';
    const
      UpperCase: Up  = ['A'..'Z'];
      Vocals:    Low = ['a','e','i','o','u','y'];
      Delimiter: set of Char =
                 [' '..'/',':'..'?','{'..'~','['..'_'];
