Var

a, b, c, d, e, f, g, h, liczba, x : Integer;

Begin

ReadLn(liczba);

x:= liczba;

If (liczba>=0) Then
	Begin
		a:=0;

		If (liczba=0) Then
			Begin
				WriteLn(x,' dziesietnie = ',a,' (U2)');
			End;

		If (liczba=1) Then
			Begin
				b:=1;
				WriteLn(x,' dziesietnie = ',a, b,' (U2)');
			End;

		If (liczba>=2) and (liczba<4) Then
			Begin
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c,' (U2)');
			End;

		If (liczba>=4) and (liczba<8) Then
			Begin
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d,' (U2)');
			End;

		If (liczba>=8) and (liczba<16) Then
			Begin
				e:= (liczba mod 2);
				liczba:= (liczba div 2);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d, e,' (U2)');
			End;

		If (liczba>=16) and (liczba<32) Then
			Begin
				f:= (liczba mod 2);
				liczba:= (liczba div 2);
				e:= (liczba mod 2);
				liczba:= (liczba div 2);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d, e, f,' (U2)');
			End;

		If (liczba>=32) and (liczba<64) Then
			Begin
				g:= (liczba mod 2);
				liczba:= (liczba div 2);
				f:= (liczba mod 2);
				liczba:= (liczba div 2);
				e:= (liczba mod 2);
				liczba:= (liczba div 2);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d, e, f, g,' (U2)');
			End;

		If (liczba>=64) and (liczba<128) Then
			Begin
				h:= (liczba mod 2);
				liczba:= (liczba div 2);
				g:= (liczba mod 2);
				liczba:= (liczba div 2);
				f:= (liczba mod 2);
				liczba:= (liczba div 2);
				e:= (liczba mod 2);
				liczba:= (liczba div 2);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d, e, f, g, h,' (U2)');
			End;
	End;

If (liczba<0) Then
	Begin
		a:=1;

		If (liczba=(-1)) Then
			Begin
				WriteLn(x,' dziesietnie = ',a,' (U2)');
			End;

		If (liczba=(-2)) Then
			Begin
				b:=0;
				WriteLn(x,' dziesietnie = ',a, b,' (U2)');
			End;

		If (liczba>=(-4)) and (liczba<(-2)) Then
			Begin
				liczba:= (4+liczba);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c,' (U2)');
			End;

		If (liczba>=(-8)) and (liczba<(-4)) Then
			Begin
				liczba:= (8+liczba);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d,' (U2)');
			End;

		If (liczba>=(-16)) and (liczba<(-8)) Then
			Begin
				liczba:= (16+liczba);
				e:= (liczba mod 2);
				liczba:= (liczba div 2);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d, e,' (U2)');
			End;

		If (liczba>=(-32)) and (liczba<(-16)) Then
			Begin
				liczba:= (32+liczba);
				f:= (liczba mod 2);
				liczba:= (liczba div 2);
				e:= (liczba mod 2);
				liczba:= (liczba div 2);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d, e, f,' (U2)');
			End;

		If (liczba>=(-64)) and (liczba<(-32)) Then
			Begin
				liczba:= (64+liczba);
				g:= (liczba mod 2);
				liczba:= (liczba div 2);
				f:= (liczba mod 2);
				liczba:= (liczba div 2);
				e:= (liczba mod 2);
				liczba:= (liczba div 2);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d, e, f, g,' (U2)');
			End;

		If (liczba>=(-128)) and (liczba<(-64)) Then
			Begin
				liczba:= (128+liczba);
				h:= (liczba mod 2);
				liczba:= (liczba div 2);
				g:= (liczba mod 2);
				liczba:= (liczba div 2);
				f:= (liczba mod 2);
				liczba:= (liczba div 2);
				e:= (liczba mod 2);
				liczba:= (liczba div 2);
				d:= (liczba mod 2);
				liczba:= (liczba div 2);
				c:= (liczba mod 2);
				liczba:= (liczba div 2);
				b:= (liczba mod 2);
				WriteLn(x,' dziesietnie = ',a, b, c, d, e, f, g, h,' (U2)');
			End;
	End;
End.