			Per angusta ad AUGUSTA!


   AUGUSTA.

  .

       ,
   ,    0,12 
 ,   - .  -
     .A (), 
   , ..  NAME.A  
 :  NAME<>
      
NAME.S   ,
NAME.P   .

.
        ,
      ,   
      (    
 ,   ).  ,  
    ,     .

     .
 :
program AAA;
 
begin
 -- 
end.

:
package BBB;
 
end.


 :
program,package,begin,end,const,type,var,proc,func,
private,use,forward,array,record,return,pragma,if,then,
elsif,else,case,of,others,for,while,loop,exit,when,with,
in,reverse,read,readln,write,put,do,div,mod,and,or,not,
try,except.
    ,  
   -   .
 div,mod,and,not,or   
 .
    ,  
  6 .


 
:
boolean,integer,real,char,string.  
pointer=^integer;  strsca=0..64; -  
  string.
      
  ,  
  .
: MATRIX=array[1..10,STRSCA] of real;
 :    , 
     !
..    ,  
 .

:
TRUE,FALSE. - ;
1259 -  ;
8#177716 -  ;
2#1011101 -  ;
4#12300331 - 4-     ,
    2  9,  ?
 = 3.1415926 (2/);
1.45-5 -  ;
"2 -  2,  8#62 -  CHAR;
' ' -  STRING;
  "2  '2' -    !(CHAR  STRING).

 :
  :
type
HEAP=record
	A:real;
	K1,K2,K3:integer;
	C,C2: char
	end;
const
H=HEAP(1.68,25*3,"A,"Z);
var
X,Y:HEAP;

begin
X:=H; Y:=X
end.

    'C,C2: char'  ';' !
 type,const,var    .
 STRING   ,  
    .
  
S:='ABCDEF';
       :
C:=S[5];  C  CHAR, 
S[K]:=C; K  integer,  STRSCA.
 L:=LENGTH(S);   , .. 6.
        :
S:='ABC'(237)'DEF'; -  237 - !
      :
S:=''(7)'APRO';
   ,  ,   ,
    .

:
     
 :
<< - BLO
=< - BLOS
>> - BHI
=> - BHIS
>< - NOP ..  FALSE
== - BR ..  TRUE.
     
  
B:=K in 1..1000;  
if I in STRSCA then ...;

:
   ADA:       
.

  :(AUGLIB.P)
HALT -    ;
GET(CH) -  EMT 6     CH 
CHAR;
NEW(P,N),DISPOSE(P,N) - P-, N-  ;
 ,   -    - 
,  .
RESET -        READ,
     READLN;
CLS -  ;
PNT(D,X,Y) -    EMT 30;
LINE(D,X2,Y2) -      EMT 32;
 D =0 - , 1 - .
  GRAPH.P   POINT  LINETO;
     GRAPHdoc.TXT.
AT(X,Y) -  
WHERE(X,Y) - ,  
NOKEY -   () 
READKEY(CH) -    
DELAY(N) -   N  (1/50 )
RANDOM(N,X) -  N-   
  X,   10 (0-9),
X -   ,  0.
ZERO(A,N) -   A N ;
OCTWRITE(I) -     ;
SPACE(N) -  N ;
OCTREAD(I) -     
MOUSE(I) -   ,  ;
 8#40 -   ,
8#100 - , 8#10 -   
2 - , 1 - , 4 - ,
    .
LOAD('NAME',A,A1,D1,ST) -    EMT 36
SAVE('NAME',A,D,ST) -  ,
 A,D -     ,
A1,D1 -   ,
ST -      1(R1)
 PRINT    
:
PRINT(TRUE  FALSE) - / 
       .
   ,     
   ,      .
PRTSCR; -      

     
 ,    
procedure    proc.

:
     
 REAL,  ,  ,   
  "326"-    - ,
   , , .  
,       164040  ,  .
,    ,  .
R     real;I - integer;V - ;
C - char;S - string;P - pointer;D - .

ABS(R),IABS(I) -      -
 ,,ODD(I),ORD(D),PRED(D),SUCC(D),CHR(I),- ,
ASL(I),ASR(I),ADDR(V),-  
SIN(R),COS(R),ARCTG(R),SQR(R),SQRT(R),TRUNC(R),
ML2(R),DV2(R),-      2.0,  
 X=Y*2.0;X=ML2(Y);
  : ML2(0.0) <> 0.0!!!
EXP(R),EXP10(R),LN(R),LG(R),
EOLN -    ,
INPUT - CHAR -  
   READ
BEGSCR -   
RND -   , .proc RANDOM
STATUS -   - EMT 34
KEYPRESSED - true,   - 
LENGTH(S),-  
LEFTI -      (integer),
LEFTR -    real;
:
 M[I,18]:=M[I,18]+5 
M[I,18]:=LEFTI+5; --   
--    .

    
  ,   function
  func.

 ,    ADA 
   :

func +MYADD(I,K:integer):integer;
begin
return (I+K) mod 80--    80
end;

      .
     
  20..60.     
 .
 :

type
RATIO:20=record--  
	C,Z:integer--   
	end;
var
BUF: RATIO;
A,B: RATIO;
const
CR=RATIO(1,3);
func +ADDRAT(X,Y:RATIO):RATIO;
begin
with BUF do
Z=X.Z*Y.Z; C=X.C*Y.Z+Y.C*X.Z;
end;-- end   with
--    
return BUF
end; --   ADDRAT

begin
A=CR; --  
B=A+CR; --   ADDRAT
end.



  :=  =
   ,   

 integer -> real 
,    TRUNC.
      
, .. ,  
  ,   
    .

INLINE
:%104014;-- EMT 14
  %     
 .( )

  -   .

  , /,  
      
 .  :

 
if 1 then
1; 2; 3; --  ..
elsif 2 then
4; 5; --  ..
else
6; 7; --  ..
end;
 elsif   ,  ..  .
 else  .
    end ,   
  (  ADA).
   :
if 1 then begin
1; 2; 3;
end else if 2 then begin
4; 5;
end else begin
6; 7;
end;
 ?

  -   

 
loop 1; 2; ... end;

  
for I in 1..N-1 loop ... end;
for I in reverse 2..100 loop ... end;
   I   
100,99,98,...4,3,2.
      I  
   integer.
  
for I in STRSCA loop ... end;

  
while  loop ... end;

 
with A,B,C do 1; 2; ... end;

 
case CH of
 "A: 1;
 "P.."W: 2;
 "1,"3,"5.."8: 3;
others 4; 5; ...
end;
 others .
    
 .

 
  
return; --     
 ,  end.
  
return ; --  
 ,     .
  
exit ;   1  :  ;
exit  when ;
     ,
  . :
loop
 loop
loop
case CH of
"a: exit 1;
"b: exit 2;
"c: exit 3;
end;--  
end
 end
end;
  "c    .
exit 0;    ;
 : exit when I>10;

 /
    read,readln,write,put  
,  .    -
    ,   ,
  .
readln; -     
   (EMT 10);
read(A,K,C,S, ...); -  
   ,   .
  readln(a,b,k);
write(a,b:5,c:7:2,''); --   .
writeln  ,   (!),
      
write(!)   .
:
for I in 1..10 loop write(I,!) end;
      1  10.
put(7,233,232,223) -    
 .    -
 -    - .
   AUGdoc2.TXT

