
     5.     
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    ணࠬ   몥 ᪠ ⮨   ணࠬ,
  ᫥ ணࠬ .  ணࠬ ,   ᢮
।, ࠧ   ,    ।-
     ணࠬ ꥪ,   -
  ,   ன । ⢨,  믮塞 
⨬ ꥪ⠬.


     ணࠬ
    ===================

     ࡮-᪠  ணࠬ   㪠, 
⢮,       祭    ணࠬ.  ᫨ 
,    ணࠬ , , ᯨ᮪ -
஢, १  ணࠬ 頥  譨 ஬.  
ᯨ᮪ ᮤন ᯨ᮪ 䨪஢,  祭   㣫
᪮  ࠧ 묨.

ਬ:
--------

    program Circles;
    program Accountant (Input,Output);
    program Writer (Input,Printer);


     ᠭ
    ================

     ᠭ  ண  ᮤঠ  
䨪஢,  ᯮ㥬  ࠧ ஢ ⮣ 
(, , 㣨   ).  ᫥騥 ࠧ-
 ᠭ:

    1) ࠧ ᠭ ⮪
    2) ࠧ । ⠭
    3) ࠧ । ⨯
    4) ࠧ ᠭ ६
    5) ࠧ ᠭ 楤  㭪権

      ⠭ ᪠  ,        
⥩      饭,    ⮫쪮 
ࠧ  ⮫쪮  㪠 浪,  ࡮-᪠ ᪠ -
쭮 ᫮   ࠧ  ந쭮 浪,
  । ⥫쭮  (..  ୮ ).


     ᠭ ⮪
    ---------------------

         ணࠬ   ।⢮ ,
  אַ । ࠢ ⮬  
  GOTO.  ⪠ ⮨   ⪨,  -
 ᫥ 稥.  । ᯮ짮 ⪨   
ᠭ  ࠧ ᠭ ⮪.   ࠧ 稭 -
ࢨ஢ ᫮ LABEL,   ᫥ ᯨ᮪ -
஢ ⮪,  ࠧ 묨,  稢騩 ᨬ
";" .

ਬ:
-------
    label 10,Error,999,Quit;

     ⫨稥  ⠭ ᪠, ࠭稢饣 ⪨ 楫-
 ᫠    4-  ,  ࡮-᪠  ᪠
 ⢥ ⮪  ᫠, ⠪  䨪.


     । ⠭
    ---------------------------

     ࠧ । ⠭  䨪  
ᨭ 祭 ⠭.  ࠧ 稭 १ࢨ-
 ᫮ CONST,     ᫥  ᯨ᮪  ᢠ
祭 ⠭, ࠧ ᨬ ";" .  ᢠ-
 ⮨  䨪,      ᫥    -
⢠  ⠭.  ⠭⠬    ப,  ⠪ 
᫠.

ਬ:
-------
    const
      Limit=255;
      Max=1024;
      PassWord='SESAM';
      CursHome = ^['V';

    騥 ⠭  ࡮-᪠  ।।-
묨, ..     뫠  ।⥫쭮 ।-
:

           祭

    Pi      Real     (3.1415926536E+00)
    False   Boolean  (७ 祭 false)
    True    Boolean  (७ 祭 true)
    MaxInt  Integer  (32767)

     ᠭ   13,  ࠧ । ⠭  
⠪ । ⠭   ⨯.



     । ⨯
    ------------------------

       ᪠   אַ ᠭ  ࠧ  -
। ⨯,   ᠭ ⥬ 뫪  䨪 -
.  ।ᬮ७ ᪮쪮 ⠭ 䨪஢  ⨯;
஬  ⮣,  ணࠬ  ᮧ ᢮ ᮡ⢥ ⨯
⥬ ᯮ짮 । ⨯.   । ⨯
稭  १ࢨ஢  ᫮ TYPE,    ᫥
  ᪮쪮  ᢠ  ⨯,  ࠧ  ᨬ
";".    ᢠ ⨯ ⮨  䨪 ⨯,
  ᫥  ࠢ⢠  ⨯.

ਬ:
-------

    type
      Number = Integer;
      Day = (mon,tues,wed,thur,fri,sat,sun);
      List = array [1..10] of Real;

讥 ⢮ ਬ஢ । ⨯    -
 ࠧ.


     ᠭ ६
    --------------------------

     ६,    ணࠬ,   
ᠭ   ()  ।  ᯮ짮.  ᠭ  
⥪㠫쭮  ।⢮    ᯮ짮  ६,
..  ६      "⭠"  । 
ᯮ짮.

     ६ ⮨   १ࢨ஢  ᫮
VAR,   ᫥    䨪஢,  ࠧ-
 묨;   ⮨ 稥  ⨯.  ᮧ -
 ६  㪠 ⨯  뢠    -
䨪஬.

     ⢨  䨪 - ,   -
஬  饭,      ⮣ . ⨬, -
,       ண   ।
 ६, ᯮ   䨪.  ६-
 뢠     ⭮襭  ,   ஬ 
 (  ᥬ   ),   ⮬ ६,
  譥 ஢ () ⠭ -
.

ਬ:
-------
    var
      Result,Intermediate,SubTotal: Real;
      I, J, X, Y: Integer;
      Accepted, Valid: Boolean;
      Period: Day;
      Buffer: array[0..127] of Byte;


    ᮫ ६
    - - - - - - - - - - -

    ६   ⠪, ⮡   
; ⠪ ६ 뢠 ᮫묨.

     ⨣    ᠭ ६ १-
஢ ᫮ ABSOLUTE,    ᫥ ⠭  ⨯
INTEGER, ਬ:

    var
      IObyte: byte absolute 3;
      CmdLine: string[127] absolute $0080;

    ਡ⮬ ABSOLUTE  짮 ⠪  ⮣, ⮡
 ६ 稭    ⮣   -  -
   㣠.   ᫥ ᫮ ABSOLUTE ⮨ -
䨪 ६  ࠬ,   ६ 㤥 -
   ⮩ ६  ࠬ, ਬ:

    var
      Str: string[32];
      StrLen: Byte absolute Str;

     १  ⠪  ६ Str  StrLen -
      砫  ,    ᪮  
 ப ६  ᮤন  ᮮ⢥饩 -
, ६ StrLen 㤥 ᮤঠ  ६  Str.  
ᠭ ᮫⭮  ६     㪠 ⮫쪮 
䨪. ⮬ ⠪ :

    Ident1, Ident2: Integer absolute $80;

     ⨬.


     ᠭ 楤  㭪権
    ----------------------------------

    ᠭ 楤  㦨  । 楤 
⥪饩 楤  ணࠬ (. ࠧ "楤"  
16).  楤  ᪠  ஬  맮 楤 (.
ࠧ "맮 楤"   7),   ᫥  襭 -
  ணࠬ  த  ,  ।⢥
᫥饣  ஬ 맮 楤.

    ᠭ 㭪樨  㦨    ।  ணࠬ,
   頥 । 祭 (.  ࠧ-
 "ᠭ 㭪樨"   16).  㭪 ᪠, 
  砥  ࠦ (.  ࠧ "맮 㭪権"  
 6).


    ୠ 
    =================

    ୠ   ᫥  .   -
।  ⢨,    믮  ணࠬ.  
ଥ ୠ    ⠢ ,   -
 ᫥ 窠   ";" .  ⠢   ⮨
  १ࢨ஢  ᫮ BEGIN,    ᫥ ᯨ᮪
஢,  ࠧ ᨬ ";" , 稢騩 १-
஢ ᫮ END.
