const
  Part = 4;
  Time = 5;
var
  valueOfParts, i, N: integer;
begin
  Readln(N);
  for i := 1 to N do
    if i mod Time = 0 then
      valueOfParts := valueOfParts + Part;
  Writeln(valueOfParts);
end.