program prevod;

function tobin( cislo: integer ): string;
var
	vysledek: string;
	zb: integer;
	znamenko: string;
begin
	vysledek := '';
	if cislo < 0 then begin
		znamenko := '-';
		cislo := cislo * ( -1 );
	end else znamenko := '';
	repeat
		zb := cislo mod 2;
		vysledek := chr( zb + ord( '0' ) ) + vysledek;
		cislo := cislo div 2;
	until cislo = 0;
	tobin := znamenko + vysledek;
end;

begin
	writeln( tobin( 38 ) );
end.