program mn;
uses crt;
var n,d:integer;
s,p:string;
function per(var a:integer):string;
begin
While a>=1 do begin
d:=a mod 2;
str(d,p);
a:=a div 2;
s:=s+p;
per:=s;
end;
end;
BEGIN
ClrScr;
Write('n:');
readln(n);
per(n);
Writeln(per(n));
readln;
END.