program fact;
var S,nr,i,n,x : longint;
    f,g : text;
    ok : boolean;
begin
assign(f,'fact.in');
reset(f);
assign(g,'fact.out');
rewrite(g);
readln(f,n);
close(f);

nr := 0;
while nr<n do begin
S := S+5;
x := S;
ok := true;
while ok do
if x mod 5 = 0 then begin
                    nr := nr+1;
                    x := x div 5;
                    end
               else ok := false;

end;




if nr=n then write(g,S)
        else write(g,-1);

close(g)


end.