var
  number: longint;
  low,high:Integer;
begin
  {$APPTYPE CONSOLE}
  write('Enter number>0');
  Readln(number);
  high:=31;
  low:=0;
  while(low<=(high shr 1)) do
  begin
    if(((number shr low) xor (number shr (high-low))) and 1) then
      number:=number xor ((1 shl low) or (1 shl (high-low)));
    Inc(low);
  end;
  writeln('New number - ',number);
  readln;
end.