program oo;
var
p,x,n,y:longint;
f1,f2:text;
begin
assign(f1,'fact.in');
assign(f2,'fact.out');
reset(f1);
rewrite(f2);
read(f1,p);
x:=-5;
n:=0;
if p=0 then writeln(f2,1) else
begin
repeat
x:=x+5;
y:=x;
while y>=5 do
begin
if y mod 5=0 then n:=n+1;
y:=y div 5;
end
until n>= p;
if n=p then writeln(f2,x) else writeln(f2,-1)
end;
close(f1);
close(f2)
end.