Перевод в систему по основанию 2

//Перевод в 2 систему счисления
function St2(b:smallint):int64;
var x:smallint;
Begin
result:=1;
for x:= 1 to b do
 begin
 Result:=Result*2;
 end;
end;
var
n:int64;
b:boolean;
i:smallint;
fix:Int64;
Begin
b:=false;
Readln(n);
for i:= 60 downto 1 do
 begin
 fix:=St2(i);
 if n>=fix then begin write('1'); n:=n-fix; b:=true; end else if b=true then write('0');
 end;
if n=1 then writeln('1') else writeln('0');
end.