begin
comment binary presentation of bits string variable;
	procedure bitsOfBits(bits value bb);
	begin
		bits s, r;
		integer i;
		s := #80000000;
		for i :=1 until 32 do
		begin
			r := s and bb;
			if r = #80000000 then writeon("1") 
			else writeon("0");
			comment write(bb);  comment writeon(r);
			bb := bb shl 1;
		end;
	end;
	
	bits bt;
	read (bt);
	bitsOfBits(bt);
	
end.