var i,j,k,l,m,n:longint; f1,f2:text; b:boolean;
begin
assign(f1,'fact.in');
reset(f1);
assign(f2,'fact.out');
rewrite(f2);
readln(f1,n);
if n=0 then writeln(f2,1)
else begin
i:=5;
k:=1;
j:=25;
b:=true;
while b do begin
if k=n then begin writeln(f2,i); b:=false; end
else if k>n then begin b:=false; writeln(f2,-1) end
else begin
Inc(i,5);
if i=j then begin Inc(k); j:=j*5; end;
Inc(k);
end;

end;
end;

close(f1);
close(f2);
end.