var
  n:qword;
begin
  readln(n);
  if(n mod 3=0)then writeln(n div 2);
  if(n mod 3=1)then writeln((n+2) div 2);
  if(n mod 3=2)then writeln((n+1) div 2);
  readln;
end.
不会不正确，我已经试验过了！！！