program factorial;

{$APPTYPE CONSOLE}

uses
  SysUtils;
    Label IESIRE;
var fin,fout:text;
    min,div2,div5,i,j,p,n:integer;
    ok:boolean;
{*----------MAIN--------*}
begin
        assign(fin,'fact.in');
        assign(fout,'fact.out');
        reset(fin);
        rewrite(fout);
        readln(fin,p);
        if p = 0 then begin writeln(fout,1); goto IESIRE end;
        ok:=false;
        n:=0;
        div2:=0;
        div5:=0;
        while (not ok) and (n div p <=7)do
        begin
                inc(n);
                j:=n;
                while j mod 2 = 0 do begin j:=j div 2; inc(div2) end;
                while j mod 5 = 0 do begin j:=j div 5; inc(div5) end;
                min:=div2;
                if min > div5 then min:=div5;
                if min = p then ok:=true;
        end;
        if ok then writeln(fout,n) else writeln(fout,-1);
        IESIRE:
        close(fout);
end.