const task = 'HATDIEU';
var n: longint;
var i, r1, r2: longint;
begin
//    assign(input, task + '.inp'); reset(input);
//    assign(output, task + '.out'); rewrite(output);
    
    readln(n);
    for i:=0 to 4 do begin
        if i * 3 > n then break;
        if (n - i * 3) mod 5 = 0 then begin
            r1:=i; r2:=(n - i * 3) div 5;
            break;
        end;
    end;
    if r1 * 3 + r2 * 5 = n then write(r1 + r2) else write(-1);
    
//    close(input); close(output);
end.

#codedao

uses crt;
var f:text; n:longint;
begin
clrscr;
   assign(f,'hatdieu.inp');reset(f);
      readln(f,n);
   close(f);
   assign(f,'hatdieu.inp');rewrite(f);
      if n-n div 5*5=0 then writeln(f,n div 5) else
      if n-n div 5*5=1 then
         if n>=6 then writeln(f,n div 5+1) else writeln(f,-1)
      else
      if n-n div 5*5=2 then
         if n>=12 then writeln(f,n div 5+2) else writeln(f,-1)
      else
      if n-n div 5*5=3 then
         writeln(f,n div 5+1);
   close(f);
end.