var ls,ld,c,p:longint;
ok:boolean;
f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p);
ls:=0;
ld:=2147483647;
ok:false;
while ((ls<=ld) and (not ok)) do
begin
m:=(ls+ld) div 2;
if c=p then ok:=true
else if p>c then ls:=m+1
else ld:=m-1;
if m=1 then not ok then break;
end;
write(g,c);
close(g);
close(f);
end.