program factorial;
 var a,z,x,p:longint;
     f,g:text;
 begin
 assign (f,'fact.in');
 assign (g,'fact.out');
 reset (f);
 rewrite (g);
 read (f,p);
 z:=0;
 repeat
 z:=z+5;
 a:=25;
 while z mod a=0 do
 begin
 if z mod a=0 then x:=x+1;
 a:=a*5;
 end;
 x:=x+1;
 until x>=p;
 if x>p then z:=-1;
 if p=0 then z:=1;
 write (g,z);
 close (f);
 close (g);
 end.