var P, value : longint;
    f : textfile;

begin
  Assign(f, 'fact.in');
  Reset(f);
  Read(f, P);
  Close(f);

  value := 0;
  case P of
    -1 : value := -1;
    0  : value := 1;
    else
      begin
        if P >= 10
          then dec(P);
        value := 5 * P;
      end;
  end;

  Assign(f, 'fact.out');
  Rewrite(f);
  Write(f, value);
  Close(f);
end.