declare
    int:integer;
    b:boolean;
Begin
    b := false;
    int := 100;
    b := not (2_000*(int+3_456_789)<int) and b;
    int := int+4*int;
    put(int);
End;