program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  Number, WNumber, NNumber, MaxArrNum, Exp: Integer;
  Binary: array [0..255] of Integer;
begin
   readln(Number);
   MaxArrNum:= 0;
   WNumber:= Number;

   while WNumber > 0 do
     begin
     Binary[MaxArrNum]:= WNumber mod 2;
     WNumber:= WNumber div 2;
     MaxArrNum:= MaxArrNum+1;
   end;

   Exp:=1;
   MaxArrNum:= MaxArrNum-1;
   NNumber:= 0;

   while MaxArrNum >= 0 do
     begin
     NNumber:= NNumber + Binary[MaxArrNum]*Exp;
     Exp:=Exp*2;
     MaxArrNum:=MaxArrNum-1;
   end;

   writeln (NNumber);
   readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.