var a,b,c:byte; begin a:=7; b:=14; c:=32; write((a or b) shl 2:3, (b xor c) shr 3:3, (c shr 3) and a:3, a and b:3 ); readln; end.
var a,b,c:byte; begin a:=7; b:=255; c:=32; write((5 shl 3) and c:4, b shr 4:4, (b or a) shr 1:4, (c+a) or a:4); readln; end.
var a,b:byte; c:integer; begin a:=33; b:=5; c:=1024; write((c or b) shr 1:7, (a shr 1) shl 1:7, (c shl 5) + 3:7, (1024 shl 5)+3:7, (b shr 1) or a:7); readln; end.
var a,b:byte; c:integer; begin a:=33; b:=8; c:=256; write(boolean((c shr 5)and 8)); write((c shr 4) and a:6, a shl 2:6, (b+1) and a:6); readln; end.
begin write(((1 shl 2) or 1) or (1 shl 3):5, (128 shr 2) or (1 shl 2):5, 7 xor 5:5, 8 xor 2:5); readln; end.