program garland; uses crt; var f1,f2:text; s,n,i,m:integer; begin assign(f1,'GARLAND.DAT'); assign(f2,'GARLAND.SOL'); reset(f1); rewrite(f2); readln(f1,n); i:=0; while n>0 do begin s:=s+n mod 2; n:=n div 2; end; m:=round(exp((s-1)*ln(2))); writeln(f2,m); close(f1); close(f2); end.