begin
comment get two selected bits value;
	bits bt, b2;
	integer n;
	bt := #12ab34cd;
	write(bt);
start:;
	write("bit number = "); readon( n);
	b2 := #3 shl n; comment two bits;
	b2 := bt and b2;  b2 := b2 shr n; 
	if (b2 = #0) then write("00") else 
	begin
		if (b2 = #1 ) then write("01") else 
		begin
			if (b2 = #2) then write("10") else write("11"); 
		end;
	end;
	goto start;
end.