var n:integer;
procedure citire;
          begin
               assign(input,'nunta.in');
               reset(input);
               read(input,n);
               close(input)
          end;
procedure gasiresiafisare;
          begin
                if n mod 2=0 then begin
                         n:=n+1+(n div 10)
                     end
                   else begin
                        n:=n+(n div 10)
                        end;
                assign(output,'nunta.out');
                rewrite(output);
                write(output,n);
                close(output)
          end;
begin
     citire;
     gasiresiafisare;
end.