var m,nr,a,d,i,s,c,r:longint;
    f:text;
begin
     assign(f,'fact.in');
     reset(f);
     readln(f,m);
     close(f);
     assign(f,'fact.out');
     rewrite(f);
     if m=0 then nr:=1
     else begin
         a:=m div 30;
         a:=a+5;
         if (m-a) mod 6=0 then nr:=-1
         else nr:=(m-(m div 5)-1)*5
            {if m<=10 then nr:=(m-1)*5
            else begin
            a:=m div 5; c:=1; s:=1;  d:=5;
            r:=m mod 5; r:=(r-1)*(-1);
            while c<>0 do begin
                  i:=i*(-1); d:=d*5;
                  c:=m div d;
                  a:=a+(c*i);
                  end;
            m:=m-a+r;
            nr:=m*5;
            end;}
     end;
     write(f,nr);
     close(f);
end.