1 system;

     2 

     3 type 

     4     LongInt = integer;

     5     LongWord = integer;

     6 var 

     7     false, true: boolean;

     8     write, writeln: procedure;