1
system;
2
3
type
4
LongInt = integer;
5
LongWord = integer;
6
var
7
false, true: boolean;
8
write, writeln: procedure;