system;

type 
    LongInt = integer;
    LongWord = integer;
var 
    false, true: boolean;
    write, writeln: procedure;