begin
comment get selected bit value;
	bits bt, b1;
	integer n;
	bt := #12ab34cd;
	write(bt);
start:;
	write("bit number = "); readon( n);
	b1 := #1 shl n;
	b1 := bt and b1;
	if (b1 = #0) then write("bit=0") else write("bit=1");
	goto start;
end.