program p1;
var f1,f2:text;
    n,r:longint;
BEGIN
 assign(f1,'fact.in'); reset(f1);
 assign(f2,'fact.out'); rewrite(f2);

  read(f1,n);
  if n=0 then write(f2,'1')
         else
          begin
           r:=(n div 6)*25;
           r:=r+(n mod 6)*5;
           if n mod 6=5 then write(f2,'-1')
                        else write(f2,r);
          end;


 close(f1); close(f2);
END.