|
6512
|
1 |
system;
|
|
|
2 |
|
|
|
3 |
type
|
|
|
4 |
LongInt = integer;
|
|
|
5 |
LongWord = integer;
|
|
6516
|
6 |
Cardinal = integer;
|
|
|
7 |
PtrInt = integer;
|
|
6520
|
8 |
Word = integer;
|
|
|
9 |
Integer = integer;
|
|
|
10 |
Byte = integer;
|
|
|
11 |
SmallInt = integer;
|
|
|
12 |
ShortInt = integer;
|
|
6516
|
13 |
|
|
|
14 |
pointer = pointer;
|
|
|
15 |
PChar = pointer;
|
|
|
16 |
|
|
|
17 |
double = float;
|
|
|
18 |
real = float;
|
|
|
19 |
float = float;
|
|
|
20 |
|
|
|
21 |
boolean = boolean;
|
|
|
22 |
LongBool = boolean;
|
|
|
23 |
|
|
|
24 |
string = string;
|
|
|
25 |
shortstring = string;
|
|
|
26 |
ansistring = string;
|
|
|
27 |
|
|
|
28 |
char = char;
|
|
6520
|
29 |
|
|
|
30 |
PByte = ^Byte;
|
|
|
31 |
PLongInt = ^LongInt;
|
|
|
32 |
PLongWord = ^LongWord;
|
|
|
33 |
PInteger = ^Integer;
|
|
6512
|
34 |
var
|
|
|
35 |
false, true: boolean;
|
|
6520
|
36 |
write, writeLn, read, readLn, inc, dec: procedure;
|
|
|
37 |
StrLen, ord, Succ, Pred : function : integer;
|
|
|
38 |
Low, High : function : integer;
|
|
|
39 |
Now : function : integer;
|
|
|
40 |
SysUtils.StrPas, FormatDateTime : function : shortstring;
|
|
|
41 |
exit : procedure;
|