dex to bin

program lol;
var
a,j:integer;
i:array[0..100] of integer;
begin
j:= 0;
readln(a);
while a > 0 do
begin
i[j]:= a mod 2;
j+= 1;
a:=a div 2;
end;
for j:=j-1 downto 0 do
begin
write(i[j]);
end;
end.