program fact;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils
  { add your units here };

var
   p:int64;
   
function zero(x:int64):int64;
var
   c:int64;
begin
     c:=0;
     while x div 5 > 0 do
     begin
          inc(c, x div 5);
          x:= x div 5;
     end;
     zero:=c;
end;

procedure calc(x,y:int64);
var
   c:int64;
begin
     c:=(x+y) div 2;
     if (c mod 5 = 0) and (zero(c) = p) then
     case c of
     0: writeln('-1')
     else writeln(c);
     end else
     if zero(c)<p then calc(c+1,y)
                            else calc(x,c-1)
end;

begin
     assign(input,'fact.in');reset(input);
     assign(output,'fact.out');rewrite(output);
     while not eof do
     begin
          readln(p);
          calc(0,1000000000000);
     end;
     close(output);
end.