var
  N, s: integer;

begin
  read(N);
  s := 1;
N := N - N mod 17;
  while N >= 17 do
  begin
    s := s + 17;
    N := N - 17;
  end;
  write(s);
end.