var  p, n, i, x, k:longint;
begin
clrscr;
 assign(input,'fact.in');
 assign(output,'fact.out');
 reset(input);
 rewrite(output);
 readln(p);
  i:=0;
  if p<0 then writeln('-1')
         else if p=0 then writeln('1')
                     else begin
                           repeat
                            inc(i);
                           until (p*4+i) mod 5=0;
                             writeln(p*4+i);
                           end;
  close(input);
  close(output);
end.