var m,nr,a: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
     a:=m div 5;
     m:=m-a;
     nr:=m*5;
     end;
     write(f,nr);
     close(f);
end.