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.