program bits;

var
 a: integer;

begin
    a := not 4;
    a := a and 3;
    a := a or 1;
    writeinteger (a)
end.