begin comment set selected bit to 1; bits bt, b1; integer n; n := 14; bt := #12ab34cd; write(bt); b1 := #1 shl n; bt := bt or b1; write(bt); end.