var p,n:longint;

procedure init;
var f:text;
begin
  assign(f, 'fact.in');
  reset(f);
  readln(f, p);
  close(f);
end;

procedure rez;
var f:text;
begin
  assign(f, 'fact.out');
  rewrite(f);
  write(f,n);
  close(f);
end;

function nrc(k:longint):longint;
var s,p:longint;
begin
  p:=k;
  s:=0;
  while p> 0
  do begin
    p:=p div 5;
    s:=s+p;
  end;
  nrc:=s;
end;

procedure calc;
begin
  if p=0
  then n:=1
  else
  begin
    n:=p*5;
    while nrc(n)>p do n:=n-5;
    if nrc(n)<>p then n:=-1;
  end;
end;

begin
  init;
  calc;
  rez;
end.