program bai_giai;
uses crt;
var n,dem:longint;
begin
clrscr;
readln(n);
dem:=0;
while n>=5 do
begin
if n=6 then
begin
dem:=dem+2;
n:=0;
end;
if n=12 then
begin
dem:=dem+4;
n:=0;
end;
if n=9 then
begin
dem:=dem+3;
n:=0;
end;
if n>=5 then
begin
dem:=dem+1;
n:=n-5;
end;
end;
if n=3 then dem:=dem+1;
write(dem);
readln;
end.