program Task1;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

procedure GetNumber(Number: Integer);
var
   i: Byte;
   Num, Temp: Integer;
begin
   Temp := 1;
   Num := 0;
   while Number <> 0 do
   begin
      i:= Number mod 2;
      Number := Number div 2;
      Num := Num + Temp*i;
      Temp := Temp * 10;
   end;
   Writeln(Num);
end;

procedure Main();
var
    MyFile: TextFile;
    Number: Integer;
    NameOfFile: String;
begin
    Read(NameOfFile);
    AssignFile(MyFile, NameOfFile);
    Reset(MyFile);
    repeat
        ReadLn(MyFile, Number);
        GetNumber(Number);
    until EoF(MyFile);
    CloseFile(MyFile);
    ReadLn;
    ReadLn;
    ReadLn;
end;

begin
    Main();
end.