var integer procedure QW integer begin if then begin QW div write mod

var
    n :integer;
procedure QW(x :integer);
begin
    if !(x = 0) then begin
        QW(x div 2);
        write(x mod 2);
    end;
end;
 
begin
    read(n);
    QW(n);
end.