begin
comment bits string transform to string(32);
	string (32) s;
	string (1) s0, s1;
	bits bt, t;
	integer i;

	s := " ";
	s0 := "0";
	s1 := "1";
	t := #80000000;
	read(bt);
	for i := 0 until 31 do
	begin
		if (bt and t) = #0 then s(i|1) := s0 else s(i|1) := s1;
		bt := bt shl 1;
	end;
	write(s);
end.